home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / backup / tktbacku.tar / tktbackup.tar / tktbackup-dist / tktbackup < prev    next >
Text File  |  1994-08-11  |  111KB  |  3,244 lines
  1. #!/usr/local/bin/wish -f
  2. # Program: tktbackup
  3. # Tcl version: 7.3 (Tcl/Tk/XF)
  4. # Tk version: 3.6
  5. # XF version: 2.3
  6. #
  7.  
  8. # module inclusion
  9.  
  10. global env
  11. global xfLoadPath
  12. global xfLoadInfo
  13. set xfLoadInfo 0
  14. if {[info exists env(XF_LOAD_PATH)]} {
  15.   if {[string first $env(XF_LOAD_PATH) /usr/local/lib/] == -1} {
  16.     set xfLoadPath $env(XF_LOAD_PATH):/usr/local/lib/
  17.   } {
  18.     set xfLoadPath /usr/local/lib/
  19.   }
  20. } {
  21.   set xfLoadPath /usr/local/lib/
  22. }
  23.  
  24. global argc
  25. global argv
  26. global tkVersion
  27. set tmpArgv ""
  28. for {set counter 0} {$counter < $argc} {incr counter 1} {
  29.   case [string tolower [lindex $argv $counter]] in {
  30.     {-xfloadpath} {
  31.       incr counter 1
  32.       set xfLoadPath "[lindex $argv $counter]:$xfLoadPath"
  33.     }
  34.     {-xfstartup} {
  35.       incr counter 1
  36.       source [lindex $argv $counter]
  37.     }
  38.     {-xfbindfile} {
  39.       incr counter 1
  40.       set env(XF_BIND_FILE) "[lindex $argv $counter]"
  41.     }
  42.     {-xfcolorfile} {
  43.       incr counter 1
  44.       set env(XF_COLOR_FILE) "[lindex $argv $counter]"
  45.     }
  46.     {-xfcursorfile} {
  47.       incr counter 1
  48.       set env(XF_CURSOR_FILE) "[lindex $argv $counter]"
  49.     }
  50.     {-xffontfile} {
  51.       incr counter 1
  52.       set env(XF_FONT_FILE) "[lindex $argv $counter]"
  53.     }
  54.     {-xfmodelmono} {
  55.       if {$tkVersion >= 3.0} {
  56.         tk colormodel . monochrome
  57.       }
  58.     }
  59.     {-xfmodelcolor} {
  60.       if {$tkVersion >= 3.0} {
  61.         tk colormodel . color
  62.       }
  63.     }
  64.     {-xfloading} {
  65.       set xfLoadInfo 1
  66.     }
  67.     {-xfnoloading} {
  68.       set xfLoadInfo 0
  69.     }
  70.     {default} {
  71.       lappend tmpArgv [lindex $argv $counter]
  72.     }
  73.   }
  74. }
  75. set argv $tmpArgv
  76. set argc [llength $tmpArgv]
  77. unset counter
  78. unset tmpArgv
  79.  
  80.  
  81. # procedure to show window ShowWindow.aboutBox
  82. proc ShowWindow.aboutBox { args} {
  83. # xf ignore me 7
  84.  
  85.   # build widget .aboutBox
  86.   if {"[info procs XFEdit]" != ""} {
  87.     catch "XFDestroy .aboutBox"
  88.   } {
  89.     catch "destroy .aboutBox"
  90.   }
  91.   toplevel .aboutBox   -background {#bfbfbf}  -relief {raised}
  92.  
  93.   # Window manager configurations
  94.   global tkVersion
  95.   wm positionfrom .aboutBox program
  96.   wm sizefrom .aboutBox program
  97.   wm geometry .aboutBox 366x154+132+147
  98.   wm title .aboutBox {About tktbackup!}
  99.  
  100.  
  101.   # build widget .aboutBox.aboutTktbackup
  102.   message .aboutBox.aboutTktbackup  -aspect {1439}  -background {#bfbfbf}  -padx {5}  -pady {2}  -text {            TkTbackup!
  103. (c)1994 jon madison.
  104.  
  105. bug reports, comments to:
  106.      jonboy@neuromancer.ucr.edu
  107.  
  108. TkTbackup home page at:
  109. http://indyunix.iupui.edu/~jmmadiso/tktbackup.html}
  110.  
  111.   # build widget .aboutBox.okButton
  112.   button .aboutBox.okButton  -activebackground {#bfbfbf}  -background {#bfbfbf}  -command {grab release .aboutBox ; DestroyWindow.aboutBox}  -state {active}  -text {Okey}  -width {213}
  113.  
  114.   # pack widget .aboutBox
  115.   pack append .aboutBox  .aboutBox.aboutTktbackup {top frame center pady 13 expand}  .aboutBox.okButton {top frame center expand}
  116.  
  117.   if {"[info procs XFEdit]" != ""} {
  118.     catch "XFMiscBindWidgetTree .aboutBox"
  119.     after 2 "catch {XFEditSetShowWindows}"
  120.   }
  121. }
  122.  
  123. proc DestroyWindow.aboutBox {} {# xf ignore me 7
  124.   if {"[info procs XFEdit]" != ""} {
  125.     if {"[info commands .aboutBox]" != ""} {
  126.       global xfShowWindow.aboutBox
  127.       set xfShowWindow.aboutBox 0
  128.       XFEditSetPath .
  129.       after 2 "XFSaveAsProc .aboutBox; XFEditSetShowWindows"
  130.     }
  131.   } {
  132.     catch "destroy .aboutBox"
  133.     update
  134.   }
  135. }
  136.  
  137.  
  138. # procedure to show window ShowWindow.filedescriptionwindow
  139. proc ShowWindow.filedescriptionwindow { args} {
  140. # xf ignore me 7
  141.  
  142.   # build widget .filedescriptionwindow
  143.   if {"[info procs XFEdit]" != ""} {
  144.     catch "XFDestroy .filedescriptionwindow"
  145.   } {
  146.     catch "destroy .filedescriptionwindow"
  147.   }
  148.   toplevel .filedescriptionwindow   -background {#bfbfbf}  -borderwidth {3}
  149.  
  150.   # Window manager configurations
  151.   global tkVersion
  152.   wm positionfrom .filedescriptionwindow program
  153.   wm sizefrom .filedescriptionwindow program
  154.   wm geometry .filedescriptionwindow 272x349+139+85
  155.   wm maxsize .filedescriptionwindow 470 412
  156.   wm minsize .filedescriptionwindow 10 10
  157.   wm title .filedescriptionwindow {Backup Description    }
  158.  
  159.  
  160.   # build widget .filedescriptionwindow.okey
  161.   button .filedescriptionwindow.okey  -activebackground {#bfbfbf}  -background {#bfbfbf}  -command {DestroyWindow.filedescriptionwindow}  -font {-Adobe-Helvetica-medium-r-*-*-18-*-*-*-*-*-*-*}  -state {active}  -text {okey}
  162.  
  163.   # build widget .filedescriptionwindow.backupdescription
  164.   text .filedescriptionwindow.backupdescription  -background {#9100b3749f32}  -borderwidth {4}  -relief {sunken}  -wrap {none}
  165.  
  166.   # pack widget .filedescriptionwindow
  167.   pack append .filedescriptionwindow  .filedescriptionwindow.okey {bottom frame center fillx}  .filedescriptionwindow.backupdescription {bottom frame center fillx}
  168.  
  169.   .filedescriptionwindow.backupdescription insert end {}
  170.  
  171.  
  172.  
  173.   if {"[info procs XFEdit]" != ""} {
  174.     catch "XFMiscBindWidgetTree .filedescriptionwindow"
  175.     after 2 "catch {XFEditSetShowWindows}"
  176.   }
  177. }
  178.  
  179. proc DestroyWindow.filedescriptionwindow {} {# xf ignore me 7
  180.   if {"[info procs XFEdit]" != ""} {
  181.     if {"[info commands .filedescriptionwindow]" != ""} {
  182.       global xfShowWindow.filedescriptionwindow
  183.       set xfShowWindow.filedescriptionwindow 0
  184.       XFEditSetPath .
  185.       after 2 "XFSaveAsProc .filedescriptionwindow; XFEditSetShowWindows"
  186.     }
  187.   } {
  188.     catch "destroy .filedescriptionwindow"
  189.     update
  190.   }
  191. }
  192.  
  193.  
  194. # procedure to show window .
  195. proc ShowWindow. {args} {# xf ignore me 7
  196.  
  197.   # Window manager configurations
  198.   global tkVersion
  199.   wm positionfrom . user
  200.   wm sizefrom . program
  201.   wm geometry . 639x471
  202.   wm maxsize . 639 482
  203.   wm minsize . 338 454
  204.   wm title . {tktbackup}
  205.  
  206.   # bindings
  207.   bind . <Button-3> {MenuPopupPost .menu5 %X %Y}
  208.   bind . <ButtonRelease-3> {MenuPopupRelease .menu5 %W}
  209.  
  210.   # build widget .topmenubar
  211.   frame .topmenubar \
  212.     -background {#a75ec168c312} \
  213.     -borderwidth {2} \
  214.     -relief {raised}
  215.  
  216.   # build widget .topmenubar.menubutton1
  217.   menubutton .topmenubar.menubutton1 \
  218.     -activebackground {#a75ec168c312} \
  219.     -background {#a75ec168c312} \
  220.     -disabledforeground {#778d778d778d} \
  221.     -menu {.topmenubar.menubutton1.m} \
  222.     -text {File} \
  223.     -underline {0}
  224.  
  225.   # build widget .topmenubar.menubutton1.m
  226.   menu .topmenubar.menubutton1.m \
  227.     -activebackground {#a75ec168c312} \
  228.     -background {#a75ec168c312} \
  229.     -disabledforeground {#778d778d778d}
  230.   .topmenubar.menubutton1.m add command \
  231.     -command {foo} \
  232.     -label {Load Config file...} \
  233.     -state {disabled} \
  234.     -underline {0}
  235.   .topmenubar.menubutton1.m add command \
  236.     -command {exit} \
  237.     -label {Save Config} \
  238.     -state {disabled} \
  239.     -underline {0}
  240.   .topmenubar.menubutton1.m add command \
  241.     -command {set temp [FSBox "save to *.arg file:" "$fsBox(path)/$fsBox(name)"] 
  242. if {[string length $temp] !=0 } {
  243. set argfilename $temp
  244. WriteVars $argfilename} } \
  245.     -label {Save Config As} \
  246.     -underline {1}
  247.   .topmenubar.menubutton1.m add separator
  248.   .topmenubar.menubutton1.m add command \
  249.     -command {ShowWindow.aboutBox;
  250. grab aboutBox} \
  251.     -label {About tktbackup} \
  252.     -underline {6}
  253.   .topmenubar.menubutton1.m add command \
  254.     -command {catch [exec rm -f /tmp/.tktbackup.set] ; 
  255. .chooseMethodFrame.onemethodframe.enterdirset delete 0 end;
  256. exit} \
  257.     -label {Exit} \
  258.     -underline {1}
  259.  
  260.   # build widget .topmenubar.menubutton2
  261.   menubutton .topmenubar.menubutton2 \
  262.     -activebackground {#a75ec168c312} \
  263.     -background {#a75ec168c312} \
  264.     -menu {.topmenubar.menubutton2.m} \
  265.     -text {Help} \
  266.     -underline {0}
  267.  
  268.   # build widget .topmenubar.menubutton2.m
  269.   menu .topmenubar.menubutton2.m \
  270.     -activebackground {#a75ec168c312} \
  271.     -background {#a75ec168c312}
  272.   .topmenubar.menubutton2.m add command \
  273.     -label {tbackup options...}
  274.   .topmenubar.menubutton2.m add command \
  275.     -command {ShowWindow.aboutBox ; grab .aboutBox} \
  276.     -label {About} \
  277.     -state {active}
  278.  
  279.   # build widget .topmenubar.actionmenu
  280.   menubutton .topmenubar.actionmenu \
  281.     -activebackground {#a75ec168c312} \
  282.     -background {#a75ec168c312} \
  283.     -menu {.topmenubar.actionmenu.m} \
  284.     -text {Actions} \
  285.     -underline {1}
  286.  
  287.   # build widget .topmenubar.actionmenu.m
  288.   menu .topmenubar.actionmenu.m \
  289.     -activebackground {#a75ec168c312} \
  290.     -background {#a75ec168c312}
  291.   .topmenubar.actionmenu.m add command \
  292.     -command {exec xterm -e tbackup -[file tail [file root $argfilename]] } \
  293.     -label {run tbackup} \
  294.     -underline {0}
  295.  
  296.   # pack widget .topmenubar
  297.   pack append .topmenubar \
  298.     .topmenubar.menubutton1 {left frame center} \
  299.     .topmenubar.menubutton2 {right frame center} \
  300.     .topmenubar.actionmenu {left frame center}
  301.  
  302.   # build widget .backuptypeframe
  303.   frame .backuptypeframe \
  304.     -background {#6dabd0e5c927} \
  305.     -borderwidth {2} \
  306.     -cursor {hand1} \
  307.     -relief {ridge}
  308.  
  309.   # build widget .backuptypeframe.label3
  310.   label .backuptypeframe.label3 \
  311.     -background {#6dabd0e5c927} \
  312.     -font {-Adobe-Helvetica-Bold-R-*-*-14-*-*-*-*-*-*-*} \
  313.     -text {level:  }
  314.  
  315.   # build widget .backuptypeframe.full
  316.   radiobutton .backuptypeframe.full \
  317.     -activebackground {#64566bc666bc} \
  318.     -activeforeground {#e35ae5a19e72} \
  319.     -background {#6dabd0e5c927} \
  320.     -command {ForgetWindow .backuptypeframe.text1;
  321. ForgetWindow .backuptypeframe.text2;
  322. pack .backuptypeframe.text0 -side bottom -anchor w} \
  323.     -relief {ridge} \
  324.     -text {f} \
  325.     -value {f} \
  326.     -variable {level}
  327.  
  328.   # build widget .backuptypeframe.incOnFull
  329.   radiobutton .backuptypeframe.incOnFull \
  330.     -activebackground {#64566bc666bc} \
  331.     -activeforeground {#e35ae5a19e72} \
  332.     -background {#6dabd0e5c927} \
  333.     -command {ForgetWindow .backuptypeframe.text0;
  334. ForgetWindow .backuptypeframe.text2;
  335. pack .backuptypeframe.text1 -side bottom -anchor w} \
  336.     -relief {ridge} \
  337.     -text {if} \
  338.     -value {if    } \
  339.     -variable {level}
  340.  
  341.   # build widget .backuptypeframe.incOnInc
  342.   radiobutton .backuptypeframe.incOnInc \
  343.     -activebackground {#64566bc666bc} \
  344.     -activeforeground {#e35ae5a19e72} \
  345.     -background {#6dabd0e5c927} \
  346.     -command {ForgetWindow .backuptypeframe.text0;
  347. ForgetWindow .backuptypeframe.text1; 
  348. pack .backuptypeframe.text2 -side bottom -anchor w} \
  349.     -relief {ridge} \
  350.     -text {ii} \
  351.     -value {ii} \
  352.     -variable {level}
  353.  
  354.   # build widget .backuptypeframe.text0
  355.   text .backuptypeframe.text0 \
  356.     -background {#6dabd0e5c927} \
  357.     -font {-*-utopia-medium-r-*-*-16-*-*-*-*-*-*-*} \
  358.     -height {1} \
  359.     -relief {raised} \
  360.     -wrap {none}
  361.   # bindings
  362.   bind .backuptypeframe.text0 <Any-Key> {{NoFunction}}
  363.  
  364.   # build widget .backuptypeframe.text1
  365.   text .backuptypeframe.text1 \
  366.     -background {#6dabd0e5c927} \
  367.     -font {-*-utopia-medium-r-*-*-16-*-*-*-*-*-*-*} \
  368.     -height {1} \
  369.     -relief {raised} \
  370.     -wrap {none}
  371.   # bindings
  372.   bind .backuptypeframe.text1 <Any-Key> {{NoFunction}}
  373.  
  374.   # build widget .backuptypeframe.text2
  375.   text .backuptypeframe.text2 \
  376.     -background {#6dabd0e5c927} \
  377.     -font {-*-utopia-medium-r-*-*-16-*-*-*-*-*-*-*} \
  378.     -height {1} \
  379.     -relief {raised} \
  380.     -wrap {none}
  381.   # bindings
  382.   bind .backuptypeframe.text2 <Any-Key> {{NoFunction}}
  383.  
  384.   # pack widget .backuptypeframe
  385.   pack append .backuptypeframe \
  386.     .backuptypeframe.label3 {left frame nw fillx} \
  387.     .backuptypeframe.full {left frame nw} \
  388.     .backuptypeframe.incOnFull {left frame nw} \
  389.     .backuptypeframe.incOnInc {left frame nw} \
  390.     .backuptypeframe.text0 {bottom frame w}
  391.  
  392.   # build widget .chooseMethodFrame
  393.   frame .chooseMethodFrame \
  394.     -background {#bfbfbf} \
  395.     -borderwidth {1} \
  396.     -geometry {37x213} \
  397.     -relief {sunken}
  398.  
  399.   # build widget .chooseMethodFrame.frame
  400.   frame .chooseMethodFrame.frame \
  401.     -background {#b045bef9b801} \
  402.     -borderwidth {3} \
  403.     -relief {groove}
  404.  
  405.   # build widget .chooseMethodFrame.frame.scrollbar2
  406.   scrollbar .chooseMethodFrame.frame.scrollbar2 \
  407.     -activeforeground {White} \
  408.     -background {#b045bef9b801} \
  409.     -command {.chooseMethodFrame.frame.listbox1 yview} \
  410.     -foreground {#b045bef9b801} \
  411.     -relief {sunken}
  412.  
  413.   # build widget .chooseMethodFrame.frame.frame
  414.   frame .chooseMethodFrame.frame.frame \
  415.     -background {#b045bef9b801}
  416.  
  417.   # build widget .chooseMethodFrame.frame.frame.scrollbar3
  418.   scrollbar .chooseMethodFrame.frame.frame.scrollbar3 \
  419.     -activeforeground {White} \
  420.     -background {#b045bef9b801} \
  421.     -command {.chooseMethodFrame.frame.listbox1 xview} \
  422.     -foreground {#b045bef9b801} \
  423.     -orient {horizontal} \
  424.     -relief {sunken}
  425.  
  426.   # build widget .chooseMethodFrame.frame.frame.frame
  427.   frame .chooseMethodFrame.frame.frame.frame \
  428.     -background {#b045bef9b801} \
  429.     -geometry {19x19}
  430.  
  431.   # pack widget .chooseMethodFrame.frame.frame
  432.   pack append .chooseMethodFrame.frame.frame \
  433.     .chooseMethodFrame.frame.frame.scrollbar3 {left frame center pady 8 expand fillx} \
  434.     .chooseMethodFrame.frame.frame.frame {left frame center padx 8}
  435.  
  436.   # build widget .chooseMethodFrame.frame.label1
  437.   label .chooseMethodFrame.frame.label1 \
  438.     -background {#b045bef9b801} \
  439.     -font {-*-helvetica-medium-r-normal-*-12-*-*-*-p-*-iso8859-1} \
  440.     -foreground {#000000} \
  441.     -relief {ridge} \
  442.     -text {use backup set:} \
  443.     -width {28}
  444.  
  445.   # build widget .chooseMethodFrame.frame.listbox1
  446.   listbox .chooseMethodFrame.frame.listbox1 \
  447.     -background {#b045bef9b801} \
  448.     -font {*-Courier-Medium-R-Normal--*-120-*} \
  449.     -foreground {#000000} \
  450.     -geometry {14x5} \
  451.     -relief {sunken} \
  452.     -xscrollcommand {.chooseMethodFrame.frame.frame.scrollbar3 set} \
  453.     -yscrollcommand {.chooseMethodFrame.frame.scrollbar2 set}
  454.   # bindings
  455.   bind .chooseMethodFrame.frame.listbox1 <B1-Motion> {%W select from [%W nearest %y]}
  456.   bind .chooseMethodFrame.frame.listbox1 <Button-1> {%W select from [%W nearest %y]}
  457.   bind .chooseMethodFrame.frame.listbox1 <ButtonRelease-1> {set setnameselection [selection get]}
  458.   bind .chooseMethodFrame.frame.listbox1 <Shift-B1-Motion> {%W select from [%W nearest %y]}
  459.   bind .chooseMethodFrame.frame.listbox1 <Shift-Button-1> {%W select from [%W nearest %y]}
  460.  
  461.   # pack widget .chooseMethodFrame.frame
  462.   pack append .chooseMethodFrame.frame \
  463.     .chooseMethodFrame.frame.label1 {top frame center padx 47 fillx} \
  464.     .chooseMethodFrame.frame.frame {bottom frame center fillx} \
  465.     .chooseMethodFrame.frame.scrollbar2 {right frame center padx 8 filly} \
  466.     .chooseMethodFrame.frame.listbox1 {top frame center expand fill}
  467.  
  468.   # build widget .chooseMethodFrame.chooseMethodButtonsFrame
  469.   frame .chooseMethodFrame.chooseMethodButtonsFrame \
  470.     -background {#bfbfbf} \
  471.     -borderwidth {4}
  472.  
  473.   # build widget .chooseMethodFrame.chooseMethodButtonsFrame.label3
  474.   label .chooseMethodFrame.chooseMethodButtonsFrame.label3 \
  475.     -background {#c964af82d3f7} \
  476.     -font {-Adobe-Helvetica-Bold-R-*-*-14-*-*-*-*-*-*-*} \
  477.     -relief {raised} \
  478.     -text {Choose Method.}
  479.  
  480.   # build widget .chooseMethodFrame.chooseMethodButtonsFrame.set
  481.   radiobutton .chooseMethodFrame.chooseMethodButtonsFrame.set \
  482.     -activebackground {#8c0495e9aac0} \
  483.     -background {#bfbfbf} \
  484.     -borderwidth {1} \
  485.     -command {pack  .chooseMethodFrame.frame -side right -fill y -anchor nw   ;
  486.  pack .chooseMethodFrame.rescansetlistbutton   -side bottom -anchor s -expand 1; 
  487.  ForgetWindow  .chooseMethodFrame.onehelpframe .chooseMethodFrame.setRMhelpframe  .chooseMethodFrame.onemethodframe ;
  488.  pack .chooseMethodFrame.sethelpframe  -side left -anchor ne ;
  489.  FileInList .chooseMethodFrame.frame.listbox1 $setfiled} \
  490.     -text {set} \
  491.     -value {set} \
  492.     -variable {choosemethod}
  493.  
  494.   # build widget .chooseMethodFrame.chooseMethodButtonsFrame.setrm
  495.   radiobutton .chooseMethodFrame.chooseMethodButtonsFrame.setrm \
  496.     -activebackground {#8c0495e9aac0} \
  497.     -background {#bfbfbf} \
  498.     -borderwidth {1} \
  499.     -command {pack  .chooseMethodFrame.frame -side right  -fill y -anchor nw;
  500.  pack .chooseMethodFrame.rescansetlistbutton  -side bottom -anchor s -expand 1;
  501.  ForgetWindow .chooseMethodFrame.sethelpframe .chooseMethodFrame.onehelpframe .chooseMethodFrame.onemethodframe ; 
  502.  pack .chooseMethodFrame.setRMhelpframe  -side left -anchor ne ; FileInList .chooseMethodFrame.frame.listbox1 $setfiled} \
  503.     -text {setrm} \
  504.     -value {setrm} \
  505.     -variable {choosemethod}
  506.  
  507.   # build widget .chooseMethodFrame.chooseMethodButtonsFrame.one
  508.   radiobutton .chooseMethodFrame.chooseMethodButtonsFrame.one \
  509.     -activebackground {#8c0495e9aac0} \
  510.     -background {#bfbfbf} \
  511.     -borderwidth {1} \
  512.     -command {ForgetWindow .chooseMethodFrame.frame  .chooseMethodFrame.sethelpframe .chooseMethodFrame.setRMhelpframe  .chooseMethodFrame.rescansetlistbutton ;
  513. pack .chooseMethodFrame.onehelpframe -side top -anchor c ; 
  514. pack .chooseMethodFrame.onemethodframe -side top -anchor w} \
  515.     -text {one} \
  516.     -value {one} \
  517.     -variable {choosemethod}
  518.  
  519.   # pack widget .chooseMethodFrame.chooseMethodButtonsFrame
  520.   pack append .chooseMethodFrame.chooseMethodButtonsFrame \
  521.     .chooseMethodFrame.chooseMethodButtonsFrame.label3 {top frame n padx 20 fill} \
  522.     .chooseMethodFrame.chooseMethodButtonsFrame.set {top frame n expand fill} \
  523.     .chooseMethodFrame.chooseMethodButtonsFrame.setrm {top frame n expand fill} \
  524.     .chooseMethodFrame.chooseMethodButtonsFrame.one {top frame n expand fill}
  525.  
  526.   # build widget .chooseMethodFrame.sethelpframe
  527.   frame .chooseMethodFrame.sethelpframe \
  528.     -background {#bfbfbf} \
  529.     -borderwidth {2}
  530.  
  531.   # build widget .chooseMethodFrame.sethelpframe.text1
  532.   text .chooseMethodFrame.sethelpframe.text1 \
  533.     -background {#bfbfbf} \
  534.     -borderwidth {6} \
  535.     -font {*-times-medium-r-*-*-14-*} \
  536.     -height {2} \
  537.     -width {28} \
  538.     -wrap {none}
  539.   # bindings
  540.   bind .chooseMethodFrame.sethelpframe.text1 <Any-Key> {NoFunction}
  541.  
  542.   # pack widget .chooseMethodFrame.sethelpframe
  543.   pack append .chooseMethodFrame.sethelpframe \
  544.     .chooseMethodFrame.sethelpframe.text1 {top frame n fillx}
  545.  
  546.   # build widget .chooseMethodFrame.setRMhelpframe
  547.   frame .chooseMethodFrame.setRMhelpframe \
  548.     -background {#bfbfbf} \
  549.     -borderwidth {2}
  550.  
  551.   # build widget .chooseMethodFrame.setRMhelpframe.text1
  552.   text .chooseMethodFrame.setRMhelpframe.text1 \
  553.     -background {#bfbfbf} \
  554.     -borderwidth {8} \
  555.     -font {*-times-medium-r-*-*-14-*-*-*-*-*-*-*} \
  556.     -height {3} \
  557.     -width {28} \
  558.     -wrap {none}
  559.   # bindings
  560.   bind .chooseMethodFrame.setRMhelpframe.text1 <Any-Key> {NoFunction}
  561.  
  562.   # pack widget .chooseMethodFrame.setRMhelpframe
  563.   pack append .chooseMethodFrame.setRMhelpframe \
  564.     .chooseMethodFrame.setRMhelpframe.text1 {top frame center fill}
  565.  
  566.   # build widget .chooseMethodFrame.onehelpframe
  567.   frame .chooseMethodFrame.onehelpframe \
  568.     -background {#bfbfbf} \
  569.     -borderwidth {2}
  570.  
  571.   # build widget .chooseMethodFrame.onehelpframe.text1
  572.   text .chooseMethodFrame.onehelpframe.text1 \
  573.     -background {#bfbfbf} \
  574.     -borderwidth {8} \
  575.     -font {*-times-medium-r-*-*-14-*-*-*-*-*-*-*} \
  576.     -height {2} \
  577.     -width {30} \
  578.     -wrap {none}
  579.   # bindings
  580.   bind .chooseMethodFrame.onehelpframe.text1 <Any-Key> {NoFunction}
  581.  
  582.   # pack widget .chooseMethodFrame.onehelpframe
  583.   pack append .chooseMethodFrame.onehelpframe \
  584.     .chooseMethodFrame.onehelpframe.text1 {top frame nw padx 200 expand}
  585.  
  586.   # build widget .chooseMethodFrame.rescansetlistbutton
  587.   button .chooseMethodFrame.rescansetlistbutton \
  588.     -activebackground {#afafaf} \
  589.     -background {#b232c51eb621} \
  590.     -borderwidth {3} \
  591.     -command {opensetfilelist /tmp/.tktbackup.set;
  592. .chooseMethodFrame.frame.listbox1 delete 0 end ;
  593. FileInList .chooseMethodFrame.frame.listbox1 /tmp/.tktbackup.set} \
  594.     -height {4} \
  595.     -text {Rescan Set List}
  596.  
  597.   # build widget .chooseMethodFrame.onemethodframe
  598.   frame .chooseMethodFrame.onemethodframe \
  599.     -background {#bfbfbf} \
  600.     -borderwidth {2}
  601.  
  602.   # build widget .chooseMethodFrame.onemethodframe.scrollbar0
  603.   scrollbar .chooseMethodFrame.onemethodframe.scrollbar0 \
  604.     -background {#bfbfbf} \
  605.     -command {.chooseMethodFrame.onemethodframe.enterdirset view} \
  606.     -foreground {#bfbfbf} \
  607.     -orient {horizontal} \
  608.     -relief {sunken} \
  609.     -width {11}
  610.  
  611.   # build widget .chooseMethodFrame.onemethodframe.enterdirset
  612.   entry .chooseMethodFrame.onemethodframe.enterdirset \
  613.     -background {#b0e6cfdebadf} \
  614.     -font {-*-courier-bold-r-normal-*-15-*-*-*-*-*-*-*} \
  615.     -relief {sunken} \
  616.     -scrollcommand {.chooseMethodFrame.onemethodframe.scrollbar0 set} \
  617.     -width {35}
  618.  
  619.   # pack widget .chooseMethodFrame.onemethodframe
  620.   pack append .chooseMethodFrame.onemethodframe \
  621.     .chooseMethodFrame.onemethodframe.enterdirset {top frame center} \
  622.     .chooseMethodFrame.onemethodframe.scrollbar0 {bottom frame center fillx}
  623.  
  624.   # pack widget .chooseMethodFrame
  625.   pack append .chooseMethodFrame \
  626.     .chooseMethodFrame.chooseMethodButtonsFrame {left frame w pady 79 expand filly} \
  627.     .chooseMethodFrame.frame {right frame nw filly} \
  628.     .chooseMethodFrame.rescansetlistbutton {bottom frame s expand} \
  629.     .chooseMethodFrame.sethelpframe {left frame ne}
  630.  
  631.   # build widget .packMethodsFrame
  632.   frame .packMethodsFrame \
  633.     -background {#6dabd0e5c927} \
  634.     -borderwidth {3} \
  635.     -cursor {hand1} \
  636.     -geometry {30x74} \
  637.     -relief {ridge}
  638.  
  639.   # build widget .packMethodsFrame.label3
  640.   label .packMethodsFrame.label3 \
  641.     -background {#6dabd0e5c927} \
  642.     -font {-Adobe-Helvetica-Bold-R-*-*-14-*-*-*-*-*-*-*} \
  643.     -text {pack methods-> }
  644.  
  645.   # build widget .packMethodsFrame.afio
  646.   radiobutton .packMethodsFrame.afio \
  647.     -activebackground {#64566bc666bc} \
  648.     -activeforeground {#e35ae5a19e72} \
  649.     -background {#6dabd0e5c927} \
  650.     -command {ForgetWindow .packMethodsFrame.text1 .packMethodsFrame.text7 .packMethodsFrame.text8 ; pack .packMethodsFrame.text0 -side bottom -anchor w} \
  651.     -relief {ridge} \
  652.     -text {afio} \
  653.     -value {afio} \
  654.     -variable {packmethod}
  655.  
  656.   # build widget .packMethodsFrame.afio0
  657.   radiobutton .packMethodsFrame.afio0 \
  658.     -activebackground {#64566bc666bc} \
  659.     -activeforeground {#e35ae5a19e72} \
  660.     -background {#6dabd0e5c927} \
  661.     -command {ForgetWindow .packMethodsFrame.text0 .packMethodsFrame.text7 .packMethodsFrame.text8 ;  pack .packMethodsFrame.text1 -side bottom -anchor w} \
  662.     -relief {ridge} \
  663.     -text {afio0} \
  664.     -value {afio0    } \
  665.     -variable {packmethod}
  666.  
  667.   # build widget .packMethodsFrame.tar
  668.   radiobutton .packMethodsFrame.tar \
  669.     -activebackground {#64566bc666bc} \
  670.     -activeforeground {#e35ae5a19e72} \
  671.     -background {#6dabd0e5c927} \
  672.     -command {ForgetWindow .packMethodsFrame.text0 .packMethodsFrame.text1 .packMethodsFrame.text8; pack .packMethodsFrame.text7 -side bottom -anchor w} \
  673.     -relief {ridge} \
  674.     -text {tar} \
  675.     -value {tar} \
  676.     -variable {packmethod}
  677.  
  678.   # build widget .packMethodsFrame.tarcpio
  679.   radiobutton .packMethodsFrame.tarcpio \
  680.     -activebackground {#64566bc666bc} \
  681.     -activeforeground {#e35ae5a19e72} \
  682.     -background {#6dabd0e5c927} \
  683.     -command {ForgetWindow .packMethodsFrame.text0 .packMethodsFrame.text1  .packMethodsFrame.text7 ; pack .packMethodsFrame.text8 -side bottom -anchor w} \
  684.     -relief {ridge} \
  685.     -text {tarcpio} \
  686.     -value {tarcpio} \
  687.     -variable {packmethod}
  688.  
  689.   # build widget .packMethodsFrame.text0
  690.   text .packMethodsFrame.text0 \
  691.     -background {#6dabd0e5c927} \
  692.     -font {-*-utopia-medium-r-*-*-16-*-*-*-*-*-*-*} \
  693.     -height {1} \
  694.     -width {46}
  695.   # bindings
  696.   bind .packMethodsFrame.text0 <Any-Key> {{NoFunction}}
  697.  
  698.   # build widget .packMethodsFrame.text1
  699.   text .packMethodsFrame.text1 \
  700.     -background {#6dabd0e5c927} \
  701.     -font {-*-utopia-medium-r-*-*-16-*-*-*-*-*-*-*} \
  702.     -height {1}
  703.   # bindings
  704.   bind .packMethodsFrame.text1 <Any-Key> {{NoFunction}}
  705.  
  706.   # build widget .packMethodsFrame.text7
  707.   text .packMethodsFrame.text7 \
  708.     -background {#6dabd0e5c927} \
  709.     -font {-*-utopia-medium-r-*-*-16-*-*-*-*-*-*-*} \
  710.     -height {1}
  711.   # bindings
  712.   bind .packMethodsFrame.text7 <Any-Key> {{NoFunction}}
  713.  
  714.   # build widget .packMethodsFrame.text8
  715.   text .packMethodsFrame.text8 \
  716.     -background {#6dabd0e5c927} \
  717.     -font {-*-utopia-medium-r-*-*-16-*-*-*-*-*-*-*} \
  718.     -height {1}
  719.   # bindings
  720.   bind .packMethodsFrame.text8 <Any-Key> {{NoFunction}}
  721.  
  722.   # pack widget .packMethodsFrame
  723.   pack append .packMethodsFrame \
  724.     .packMethodsFrame.label3 {left frame nw fillx} \
  725.     .packMethodsFrame.afio {left frame nw} \
  726.     .packMethodsFrame.afio0 {left frame nw} \
  727.     .packMethodsFrame.tar {left frame nw} \
  728.     .packMethodsFrame.tarcpio {left frame nw} \
  729.     .packMethodsFrame.text0 {bottom frame w}
  730.  
  731.   # build widget .writeMethodFrame
  732.   frame .writeMethodFrame \
  733.     -background {#bfbfbf} \
  734.     -borderwidth {1} \
  735.     -geometry {37x213} \
  736.     -relief {sunken}
  737.  
  738.   # build widget .writeMethodFrame.writeMethodButtonFrame
  739.   frame .writeMethodFrame.writeMethodButtonFrame \
  740.     -background {#bfbfbf} \
  741.     -borderwidth {4}
  742.  
  743.   # build widget .writeMethodFrame.writeMethodButtonFrame.label10
  744.   label .writeMethodFrame.writeMethodButtonFrame.label10 \
  745.     -background {#fef97cf07cf0} \
  746.     -font {-Adobe-Helvetica-*-r-*-*-14-*-*-*-*-*-*-*} \
  747.     -height {1} \
  748.     -relief {raised} \
  749.     -text {Write Methods...}
  750.  
  751.   # build widget .writeMethodFrame.writeMethodButtonFrame.floppy
  752.   radiobutton .writeMethodFrame.writeMethodButtonFrame.floppy \
  753.     -activebackground {#8c0495e9aac0} \
  754.     -background {#bfbfbf} \
  755.     -borderwidth {1} \
  756.     -command {ForgetWindow .writeMethodFrame.message2;
  757. ForgetWindow .writeMethodFrame.filedevframe ;
  758. pack .writeMethodFrame.floppychoiceframe  -anchor w -side left -expand 1} \
  759.     -height {2} \
  760.     -text {floppy} \
  761.     -value {floppy} \
  762.     -variable {writemethod}
  763.  
  764.   # build widget .writeMethodFrame.writeMethodButtonFrame.tape
  765.   radiobutton .writeMethodFrame.writeMethodButtonFrame.tape \
  766.     -activebackground {#8c0495e9aac0} \
  767.     -background {#bfbfbf} \
  768.     -borderwidth {1} \
  769.     -command {ForgetWindow .writeMethodFrame.floppychoiceframe ;
  770. ForgetWindow .writeMethodFrame.message2 ;
  771. ForgetWindow .writeMethodFrame.filedevframe} \
  772.     -height {2} \
  773.     -text {tape} \
  774.     -value {tape} \
  775.     -variable {writemethod}
  776.  
  777.   # build widget .writeMethodFrame.writeMethodButtonFrame.filedev
  778.   radiobutton .writeMethodFrame.writeMethodButtonFrame.filedev \
  779.     -activebackground {#8c0495e9aac0} \
  780.     -background {#bfbfbf} \
  781.     -borderwidth {1} \
  782.     -command {ForgetWindow .writeMethodFrame.floppychoiceframe ;
  783. ForgetWindow .writeMethodFrame.message2 ;
  784. pack .writeMethodFrame.filedevframe -side left -anchor c -expand 1} \
  785.     -height {2} \
  786.     -text {filedev} \
  787.     -value {filedev} \
  788.     -variable {writemethod}
  789.  
  790.   # build widget .writeMethodFrame.writeMethodButtonFrame.bitbucket
  791.   radiobutton .writeMethodFrame.writeMethodButtonFrame.bitbucket \
  792.     -activebackground {#8c0495e9aac0} \
  793.     -background {#bfbfbf} \
  794.     -borderwidth {1} \
  795.     -command {ForgetWindow .writeMethodFrame.floppychoiceframe ;
  796. ForgetWindow .writeMethodFrame.filedevframe ;
  797. pack .writeMethodFrame.message2 -side left -anchor c} \
  798.     -height {2} \
  799.     -text {/dev/null} \
  800.     -value {null} \
  801.     -variable {writemethod}
  802.  
  803.   # pack widget .writeMethodFrame.writeMethodButtonFrame
  804.   pack append .writeMethodFrame.writeMethodButtonFrame \
  805.     .writeMethodFrame.writeMethodButtonFrame.label10 {top frame center padx 20 fillx} \
  806.     .writeMethodFrame.writeMethodButtonFrame.floppy {top frame nw expand fill} \
  807.     .writeMethodFrame.writeMethodButtonFrame.tape {top frame nw expand fill} \
  808.     .writeMethodFrame.writeMethodButtonFrame.filedev {top frame nw expand fill} \
  809.     .writeMethodFrame.writeMethodButtonFrame.bitbucket {top frame center fillx}
  810.  
  811.   # build widget .writeMethodFrame.floppychoiceframe
  812.   frame .writeMethodFrame.floppychoiceframe \
  813.     -background {#bfbfbf} \
  814.     -borderwidth {2} \
  815.     -relief {sunken}
  816.  
  817.   # build widget .writeMethodFrame.floppychoiceframe.floppynameframe
  818.   frame .writeMethodFrame.floppychoiceframe.floppynameframe \
  819.     -background {#bfbfbf} \
  820.     -borderwidth {2}
  821.  
  822.   # build widget .writeMethodFrame.floppychoiceframe.floppynameframe.floppylabel
  823.   label .writeMethodFrame.floppychoiceframe.floppynameframe.floppylabel \
  824.     -background {#bfbfbf} \
  825.     -borderwidth {0} \
  826.     -text {floppy device:   }
  827.  
  828.   # build widget .writeMethodFrame.floppychoiceframe.floppynameframe.floppy0
  829.   radiobutton .writeMethodFrame.floppychoiceframe.floppynameframe.floppy0 \
  830.     -activebackground {#e28ee28ee28e} \
  831.     -background {#bfbfbf} \
  832.     -relief {flat} \
  833.     -text {0} \
  834.     -value {0} \
  835.     -variable {mnr}
  836.  
  837.   # build widget .writeMethodFrame.floppychoiceframe.floppynameframe.floppy1
  838.   radiobutton .writeMethodFrame.floppychoiceframe.floppynameframe.floppy1 \
  839.     -activebackground {#e28ee28ee28e} \
  840.     -background {#bfbfbf} \
  841.     -relief {flat} \
  842.     -text {1} \
  843.     -value {1} \
  844.     -variable {mnr}
  845.  
  846.   # pack widget .writeMethodFrame.floppychoiceframe.floppynameframe
  847.   pack append .writeMethodFrame.floppychoiceframe.floppynameframe \
  848.     .writeMethodFrame.floppychoiceframe.floppynameframe.floppylabel {left frame center} \
  849.     .writeMethodFrame.floppychoiceframe.floppynameframe.floppy0 {left frame center} \
  850.     .writeMethodFrame.floppychoiceframe.floppynameframe.floppy1 {right frame center}
  851.  
  852.   # build widget .writeMethodFrame.floppychoiceframe.densityframe
  853.   frame .writeMethodFrame.floppychoiceframe.densityframe \
  854.     -background {#bfbfbf} \
  855.     -borderwidth {2}
  856.  
  857.   # build widget .writeMethodFrame.floppychoiceframe.densityframe.densitylabel
  858.   label .writeMethodFrame.floppychoiceframe.densityframe.densitylabel \
  859.     -background {#bfbfbf} \
  860.     -text {density:  }
  861.  
  862.   # build widget .writeMethodFrame.floppychoiceframe.densityframe.fd360
  863.   radiobutton .writeMethodFrame.floppychoiceframe.densityframe.fd360 \
  864.     -activebackground {#e28ee28ee28e} \
  865.     -background {#bfbfbf} \
  866.     -relief {flat} \
  867.     -text {d} \
  868.     -value {d} \
  869.     -variable {mdens}
  870.  
  871.   # build widget .writeMethodFrame.floppychoiceframe.densityframe.fd1200
  872.   radiobutton .writeMethodFrame.floppychoiceframe.densityframe.fd1200 \
  873.     -activebackground {#e28ee28ee28e} \
  874.     -background {#bfbfbf} \
  875.     -relief {flat} \
  876.     -text {xd} \
  877.     -value {xd} \
  878.     -variable {mdens}
  879.  
  880.   # build widget .writeMethodFrame.floppychoiceframe.densityframe.fd720
  881.   radiobutton .writeMethodFrame.floppychoiceframe.densityframe.fd720 \
  882.     -activebackground {#e28ee28ee28e} \
  883.     -background {#bfbfbf} \
  884.     -relief {flat} \
  885.     -text {h} \
  886.     -value {h} \
  887.     -variable {mdens}
  888.  
  889.   # build widget .writeMethodFrame.floppychoiceframe.densityframe.fd1440
  890.   radiobutton .writeMethodFrame.floppychoiceframe.densityframe.fd1440 \
  891.     -activebackground {#e28ee28ee28e} \
  892.     -background {#bfbfbf} \
  893.     -relief {flat} \
  894.     -text {xh} \
  895.     -value {xh} \
  896.     -variable {mdens}
  897.  
  898.   # pack widget .writeMethodFrame.floppychoiceframe.densityframe
  899.   pack append .writeMethodFrame.floppychoiceframe.densityframe \
  900.     .writeMethodFrame.floppychoiceframe.densityframe.densitylabel {left frame center} \
  901.     .writeMethodFrame.floppychoiceframe.densityframe.fd360 {left frame center} \
  902.     .writeMethodFrame.floppychoiceframe.densityframe.fd1200 {left frame center} \
  903.     .writeMethodFrame.floppychoiceframe.densityframe.fd720 {left frame center} \
  904.     .writeMethodFrame.floppychoiceframe.densityframe.fd1440 {left frame center}
  905.  
  906.   # build widget .writeMethodFrame.floppychoiceframe.formatoptionsframe
  907.   frame .writeMethodFrame.floppychoiceframe.formatoptionsframe \
  908.     -background {#bfbfbf} \
  909.     -borderwidth {2}
  910.  
  911.   # build widget .writeMethodFrame.floppychoiceframe.formatoptionsframe.format
  912.   checkbutton .writeMethodFrame.floppychoiceframe.formatoptionsframe.format \
  913.     -activebackground {#e28ee28ee28e} \
  914.     -background {#bfbfbf} \
  915.     -offvalue {n} \
  916.     -onvalue {y} \
  917.     -relief {flat} \
  918.     -text {format} \
  919.     -variable {formatalways}
  920.  
  921.   # build widget .writeMethodFrame.floppychoiceframe.formatoptionsframe.verify_format
  922.   checkbutton .writeMethodFrame.floppychoiceframe.formatoptionsframe.verify_format \
  923.     -activebackground {#e28ee28ee28e} \
  924.     -background {#bfbfbf} \
  925.     -offvalue {n} \
  926.     -onvalue {y} \
  927.     -relief {flat} \
  928.     -text {verify format} \
  929.     -variable {verifyformat}
  930.  
  931.   # build widget .writeMethodFrame.floppychoiceframe.formatoptionsframe.verify_after_write
  932.   checkbutton .writeMethodFrame.floppychoiceframe.formatoptionsframe.verify_after_write \
  933.     -activebackground {#e28ee28ee28e} \
  934.     -background {#bfbfbf} \
  935.     -offvalue {n} \
  936.     -onvalue {y} \
  937.     -relief {flat} \
  938.     -text {verify after write} \
  939.     -variable {verifywrite}
  940.  
  941.   # pack widget .writeMethodFrame.floppychoiceframe.formatoptionsframe
  942.   pack append .writeMethodFrame.floppychoiceframe.formatoptionsframe \
  943.     .writeMethodFrame.floppychoiceframe.formatoptionsframe.format {top frame nw} \
  944.     .writeMethodFrame.floppychoiceframe.formatoptionsframe.verify_format {top frame nw} \
  945.     .writeMethodFrame.floppychoiceframe.formatoptionsframe.verify_after_write {top frame nw}
  946.  
  947.   # build widget .writeMethodFrame.floppychoiceframe.showbackuplist
  948.   button .writeMethodFrame.floppychoiceframe.showbackuplist \
  949.     -activebackground {black} \
  950.     -activeforeground {#bfbfbf} \
  951.     -background {#bfbfbf} \
  952.     -borderwidth {3} \
  953.     -command {ShowWindow.filedescriptionwindow} \
  954.     -foreground {black} \
  955.     -relief {groove} \
  956.     -text {Show Backup Description.}
  957.  
  958.   # pack widget .writeMethodFrame.floppychoiceframe
  959.   pack append .writeMethodFrame.floppychoiceframe \
  960.     .writeMethodFrame.floppychoiceframe.floppynameframe {top frame nw} \
  961.     .writeMethodFrame.floppychoiceframe.densityframe {top frame nw} \
  962.     .writeMethodFrame.floppychoiceframe.formatoptionsframe {top frame nw} \
  963.     .writeMethodFrame.floppychoiceframe.showbackuplist {top frame center}
  964.  
  965.   # build widget .writeMethodFrame.message2
  966.   message .writeMethodFrame.message2 \
  967.     -aspect {167} \
  968.     -background {#bfbfbf} \
  969.     -font {-*-utopia-bold-i-*-*-30-*-100-75-*-*-*-*} \
  970.     -foreground {White} \
  971.     -justify {center} \
  972.     -padx {5} \
  973.     -pady {2} \
  974.     -text {To the Bit Bucket!}
  975.  
  976.   # build widget .writeMethodFrame.filedevframe
  977.   frame .writeMethodFrame.filedevframe \
  978.     -background {#bfbfbf} \
  979.     -borderwidth {2}
  980.  
  981.   # build widget .writeMethodFrame.filedevframe.scrollbar0
  982.   scrollbar .writeMethodFrame.filedevframe.scrollbar0 \
  983.     -background {#bfbfbf} \
  984.     -borderwidth {0} \
  985.     -command {.writeMethodFrame.filedevframe.enterdirset view} \
  986.     -foreground {#bfbfbf} \
  987.     -orient {horizontal} \
  988.     -relief {sunken} \
  989.     -width {11}
  990.  
  991.   # build widget .writeMethodFrame.filedevframe.text1
  992.   text .writeMethodFrame.filedevframe.text1 \
  993.     -background {#bfbfbf} \
  994.     -borderwidth {8} \
  995.     -font {*-times-medium-r-*-*-14-*-*-*-*-*-*-*} \
  996.     -height {3} \
  997.     -width {30} \
  998.     -wrap {none}
  999.   # bindings
  1000.   bind .writeMethodFrame.filedevframe.text1 <Any-Key> {NoFunction}
  1001.  
  1002.   # build widget .writeMethodFrame.filedevframe.enterfiledev
  1003.   entry .writeMethodFrame.filedevframe.enterfiledev \
  1004.     -background {#ffffff0ea1ca} \
  1005.     -font {-*-courier-bold-r-normal-*-15-*-*-*-*-*-*-*} \
  1006.     -relief {sunken} \
  1007.     -scrollcommand {.writeMethodFrame.filedevframe.scrollbar0 set} \
  1008.     -width {35}
  1009.  
  1010.   # pack widget .writeMethodFrame.filedevframe
  1011.   pack append .writeMethodFrame.filedevframe \
  1012.     .writeMethodFrame.filedevframe.text1 {top frame nw padx 200} \
  1013.     .writeMethodFrame.filedevframe.enterfiledev {top frame w} \
  1014.     .writeMethodFrame.filedevframe.scrollbar0 {bottom frame center fillx}
  1015.  
  1016.   # build widget .writeMethodFrame.doIT
  1017.   button .writeMethodFrame.doIT \
  1018.     -activebackground {#fffff1260000} \
  1019.     -background {#a0c49c1095ac} \
  1020.     -borderwidth {4} \
  1021.     -command {puts stdout $setnameselection ; exec xterm -e tbackup -this} \
  1022.     -font {-*-*-demibold-i-*-*-24-*-*-*-*-*-*-*} \
  1023.     -height {3} \
  1024.     -text {DO IT!} \
  1025.     -width {8}
  1026.  
  1027.   # pack widget .writeMethodFrame
  1028.   pack append .writeMethodFrame \
  1029.     .writeMethodFrame.writeMethodButtonFrame {left frame w pady 82 expand filly} \
  1030.     .writeMethodFrame.doIT {right frame se padx 139 expand} \
  1031.     .writeMethodFrame.floppychoiceframe {left frame w expand}
  1032.  
  1033.   # pack widget .
  1034.   pack append . \
  1035.     .topmenubar {top frame w fillx} \
  1036.     .backuptypeframe {top frame center fillx} \
  1037.     .chooseMethodFrame {top frame w expand fill} \
  1038.     .packMethodsFrame {top frame w expand fill} \
  1039.     .writeMethodFrame {bottom frame w expand fill}
  1040.  
  1041.   global tkVersion
  1042.   if {$tkVersion >= 3.0} {
  1043.     tk_menuBar .topmenubar .topmenubar.menubutton1 .topmenubar.menubutton2 .topmenubar.actionmenu
  1044.   } {
  1045.     tk_menus . .topmenubar.menubutton1 .topmenubar.menubutton2 .topmenubar.actionmenu
  1046.   }
  1047.  
  1048.   .backuptypeframe.text0 insert end {  full backup of all files in the set}
  1049.   .backuptypeframe.text1 insert end {  backup all files changed since last backup}
  1050.   .backuptypeframe.text2 insert end {  backup of files backed up since last incremental (if) backup}
  1051.   .chooseMethodFrame.frame.listbox1 insert end {dos -- dos filesystem }
  1052.   .chooseMethodFrame.frame.listbox1 insert end { ext -- extended filesystem. }
  1053.   .chooseMethodFrame.frame.listbox1 insert end { foo -- a set called foo }
  1054.   .chooseMethodFrame.frame.listbox1 insert end { mystuff -- my stuff in the /root directory. }
  1055.   .chooseMethodFrame.frame.listbox1 insert end { nocdrom -- back up everything under / }
  1056.   .chooseMethodFrame.frame.listbox1 insert end { system -- root filesystem, without /root dir.}
  1057.   .chooseMethodFrame.sethelpframe.text1 insert end {set--back up a directory 
  1058. set.}
  1059.   .chooseMethodFrame.setRMhelpframe.text1 insert end {setrm--backup a directory
  1060. set and delete the files in
  1061. the set.}
  1062.   .chooseMethodFrame.onehelpframe.text1 insert end {one--enter directory set
  1063. below (e.g. / or /dosc or /[whatever])}
  1064.   .chooseMethodFrame.onemethodframe.enterdirset insert end {}
  1065.   .packMethodsFrame.text0 insert end {  afio--pack files with afio (best)}
  1066.   .packMethodsFrame.text1 insert end {  afio0--afio w/no compression}
  1067.   .packMethodsFrame.text7 insert end {  tar--use tar (no error recovery)}
  1068.   .packMethodsFrame.text8 insert end {  tarcpio--tar w/cpio (no compress)}
  1069.   .writeMethodFrame.filedevframe.text1 insert end {filedev--enter file or device to 
  1070. write to below (e.g.  /tmp/hda1 or
  1071. /dev/tape or  /[foo0]/[foo1], etc.)}
  1072.   .writeMethodFrame.filedevframe.enterfiledev insert end {}
  1073.  
  1074.  
  1075.  
  1076.   if {"[info procs XFEdit]" != ""} {
  1077.     catch "XFMiscBindWidgetTree ."
  1078.     after 2 "catch {XFEditSetShowWindows}"
  1079.   }
  1080. }
  1081.  
  1082.  
  1083. # User defined procedures
  1084.  
  1085.  
  1086. # Procedure: FSBox
  1087. proc FSBox { {fsBoxMessage "Select file:"} {fsBoxFileName ""} {fsBoxActionOk ""} {fsBoxActionCancel ""}} {
  1088. # xf ignore me 5
  1089. ##########
  1090. # Procedure: FSBox
  1091. # Description: show file selector box
  1092. # Arguments: fsBoxMessage - the text to display
  1093. #            fsBoxFileName - a file name that should be selected
  1094. #            fsBoxActionOk - the action that should be performed on ok
  1095. #            fsBoxActionCancel - the action that should be performed on cancel
  1096. # Returns: the filename that was selected, or nothing
  1097. # Sideeffects: none
  1098. ##########
  1099. # 
  1100. # global fsBox(activeBackground) - active background color
  1101. # global fsBox(activeForeground) - active foreground color
  1102. # global fsBox(background) - background color
  1103. # global fsBox(font) - text font
  1104. # global fsBox(foreground) - foreground color
  1105. # global fsBox(extensions) - scan directory for extensions
  1106. # global fsBox(scrollActiveForeground) - scrollbar active background color
  1107. # global fsBox(scrollBackground) - scrollbar background color
  1108. # global fsBox(scrollForeground) - scrollbar foreground color
  1109. # global fsBox(scrollSide) - side where scrollbar is located
  1110.  
  1111.   global fsBox
  1112.     set fsBox(activeBackground) "#bfbfbf"
  1113.     set fsBox(background) "#bfbfbf"
  1114.     set fsBox(scrollBackground) "#bfbfbf"
  1115.     set fsBox(scrollActiveForeground) "#bfbfbf"
  1116.     set fsBox(scrollForeground) "#bfbfbf"
  1117.     set fsBox(scrollSide) "right"
  1118.     set fsBox(pattern) "*.arg"
  1119.     set fsBox(path) "/etc/tbackup"
  1120.   set tmpButtonOpt ""
  1121.   set tmpFrameOpt ""
  1122.   set tmpMessageOpt ""
  1123.   set tmpScaleOpt ""
  1124.   set tmpScrollOpt ""
  1125.   if {"$fsBox(activeBackground)" != ""} {
  1126.     append tmpButtonOpt "-activebackground \"$fsBox(activeBackground)\" "
  1127.   }
  1128.   if {"$fsBox(activeForeground)" != ""} {
  1129.     append tmpButtonOpt "-activeforeground \"$fsBox(activeForeground)\" "
  1130.   }
  1131.   if {"$fsBox(background)" != ""} {
  1132.     append tmpButtonOpt "-background \"$fsBox(background)\" "
  1133.     append tmpFrameOpt "-background \"$fsBox(background)\" "
  1134.     append tmpMessageOpt "-background \"$fsBox(background)\" "
  1135.   }
  1136.   if {"$fsBox(font)" != ""} {
  1137.     append tmpButtonOpt "-font \"$fsBox(font)\" "
  1138.     append tmpMessageOpt "-font \"$fsBox(font)\" "
  1139.   }
  1140.   if {"$fsBox(foreground)" != ""} {
  1141.     append tmpButtonOpt "-foreground \"$fsBox(foreground)\" "
  1142.     append tmpMessageOpt "-foreground \"$fsBox(foreground)\" "
  1143.   }
  1144.   if {"$fsBox(scrollActiveForeground)" != ""} {
  1145.     append tmpScrollOpt "-activeforeground \"$fsBox(scrollActiveForeground)\" "
  1146.   }
  1147.   if {"$fsBox(scrollBackground)" != ""} {
  1148.     append tmpScrollOpt "-background \"$fsBox(scrollBackground)\" "
  1149.   }
  1150.   if {"$fsBox(scrollForeground)" != ""} {
  1151.     append tmpScrollOpt "-foreground \"$fsBox(scrollForeground)\" "
  1152.   }
  1153.  
  1154.   if {[file exists [file tail $fsBoxFileName]] &&
  1155.       [IsAFile [file tail $fsBoxFileName]]} {
  1156.     set fsBox(name) [file tail $fsBoxFileName]
  1157.   } {
  1158.     set fsBox(name) ""
  1159.   }
  1160.   if {[file exists $fsBoxFileName] && [IsADir $fsBoxFileName]} {
  1161.     set fsBox(path) $fsBoxFileName
  1162.   } {
  1163.     if {"[file dirname $fsBoxFileName]" != "."} {
  1164.       set fsBox(path) [file dirname $fsBoxFileName]
  1165.     }
  1166.   }
  1167.   if {$fsBox(showPixmap)} {
  1168.     set fsBox(path) [string trimleft $fsBox(path) @]
  1169.   }
  1170.   if {"$fsBox(path)" != "" && [file exists $fsBox(path)] &&
  1171.       [IsADir $fsBox(path)]} {
  1172.     set fsBox(internalPath) $fsBox(path)
  1173.   } {
  1174.     if {"$fsBox(internalPath)" == "" ||
  1175.         ![file exists $fsBox(internalPath)]} {
  1176.       set fsBox(internalPath) [pwd]
  1177.     }
  1178.   }
  1179.   # build widget structure
  1180.  
  1181.   # start build of toplevel
  1182.   if {"[info commands XFDestroy]" != ""} {
  1183.     catch {XFDestroy .fsBox}
  1184.   } {
  1185.     catch {destroy .fsBox}
  1186.   }
  1187.   toplevel .fsBox  -borderwidth 0
  1188.   catch ".fsBox config $tmpFrameOpt"
  1189.   wm geometry .fsBox 350x300 
  1190.   wm title .fsBox {Save your configuration to a file.}
  1191.   wm maxsize .fsBox 1000 1000
  1192.   wm minsize .fsBox 100 100
  1193.   # end build of toplevel
  1194.  
  1195.   label .fsBox.message1  -anchor c  -relief raised  -text "$fsBoxMessage"
  1196.   catch ".fsBox.message1 config $tmpMessageOpt"
  1197.  
  1198.   frame .fsBox.frame1  -borderwidth 0  -relief raised
  1199.   catch ".fsBox.frame1 config $tmpFrameOpt"
  1200.  
  1201.   button .fsBox.frame1.ok  -text "OK"  -command "
  1202.       global fsBox
  1203.       set fsBox(name) \[.fsBox.file.file get\]
  1204.       if {$fsBox(showPixmap)} {
  1205.         set fsBox(path) @\[.fsBox.path.path get\]
  1206.       } {
  1207.         set fsBox(path) \[.fsBox.path.path get\]
  1208.       }
  1209.       set fsBox(internalPath) \[.fsBox.path.path get\]
  1210.       $fsBoxActionOk
  1211.       if {\"\[info commands XFDestroy\]\" != \"\"} {
  1212.         catch {XFDestroy .fsBox}
  1213.       } {
  1214.         catch {destroy .fsBox}
  1215.       }"
  1216.   catch ".fsBox.frame1.ok config $tmpButtonOpt"
  1217.  
  1218.   button .fsBox.frame1.rescan  -text "Rescan"  -command {
  1219.       global fsBox
  1220.       FSBoxFSShow [.fsBox.path.path get]  [.fsBox.pattern.pattern get] $fsBox(all)}
  1221.   catch ".fsBox.frame1.rescan config $tmpButtonOpt"
  1222.  
  1223.   button .fsBox.frame1.cancel  -text "Cancel"  -command "
  1224.       global fsBox
  1225.       set fsBox(name) {}
  1226.       set fsBox(path) {}
  1227.       $fsBoxActionCancel
  1228.       if {\"\[info commands XFDestroy\]\" != \"\"} {
  1229.         catch {XFDestroy .fsBox}
  1230.       } {
  1231.         catch {destroy .fsBox}
  1232.       }"
  1233.   catch ".fsBox.frame1.cancel config $tmpButtonOpt"
  1234.  
  1235.   if {$fsBox(showPixmap)} {
  1236.     frame .fsBox.frame2  -borderwidth 0  -relief raised
  1237.     catch ".fsBox.frame2 config $tmpFrameOpt"
  1238.  
  1239.     scrollbar .fsBox.frame2.scrollbar3  -command {.fsBox.frame2.canvas2 xview}  -orient {horizontal}  -relief {raised}
  1240.     catch ".fsBox.frame2.scrollbar3 config $tmpScrollOpt"
  1241.  
  1242.     scrollbar .fsBox.frame2.scrollbar1  -command {.fsBox.frame2.canvas2 yview}  -relief {raised}
  1243.     catch ".fsBox.frame2.scrollbar1 config $tmpScrollOpt"
  1244.  
  1245.     canvas .fsBox.frame2.canvas2  -confine {true}  -relief {raised}  -scrollregion {0c 0c 20c 20c}  -width {100}  -xscrollcommand {.fsBox.frame2.scrollbar3 set}  -yscrollcommand {.fsBox.frame2.scrollbar1 set}
  1246.     catch ".fsBox.frame2.canvas2 config $tmpFrameOpt"
  1247.  
  1248.     .fsBox.frame2.canvas2 addtag currentBitmap withtag [.fsBox.frame2.canvas2 create bitmap 5 5 -anchor nw]
  1249.   }
  1250.  
  1251.   frame .fsBox.path  -borderwidth 0  -relief raised
  1252.   catch ".fsBox.path config $tmpFrameOpt"
  1253.  
  1254.   frame .fsBox.path.paths  -borderwidth 2  -relief raised
  1255.   catch ".fsBox.path.paths config $tmpFrameOpt"
  1256.  
  1257.   menubutton .fsBox.path.paths.paths  -borderwidth 0  -menu ".fsBox.path.paths.paths.menu"  -relief flat  -text "Pathname:"
  1258.   catch ".fsBox.path.paths.paths config $tmpButtonOpt"
  1259.  
  1260.   menu .fsBox.path.paths.paths.menu
  1261.   catch ".fsBox.path.paths.paths.menu config $tmpButtonOpt"
  1262.  
  1263.   .fsBox.path.paths.paths.menu add command  -label "[string trimright $fsBox(internalPath) {/@}]"  -command "
  1264.        global fsBox
  1265.        FSBoxFSShow \[.fsBox.path.path get\]  \[.fsBox.pattern.pattern get\] \$fsBox(all)
  1266.        .fsBox.path.path delete 0 end
  1267.        .fsBox.path.path insert 0 [string trimright $fsBox(internalPath) {/@}]"
  1268.  
  1269.   entry .fsBox.path.path  -relief raised
  1270.   catch ".fsBox.path.path config $tmpMessageOpt"
  1271.  
  1272.   if {![IsADir $fsBox(internalPath)]} {
  1273.     set $fsBox(internalPath) [pwd]
  1274.   }
  1275.   .fsBox.path.path insert 0 $fsBox(internalPath)
  1276.  
  1277.   frame .fsBox.pattern  -borderwidth 0  -relief raised
  1278.   catch ".fsBox.pattern config $tmpFrameOpt"
  1279.  
  1280.   frame .fsBox.pattern.patterns  -borderwidth 2  -relief raised
  1281.   catch ".fsBox.pattern.patterns config $tmpFrameOpt"
  1282.  
  1283.   menubutton .fsBox.pattern.patterns.patterns  -borderwidth 0  -menu ".fsBox.pattern.patterns.patterns.menu"  -relief flat  -text "Selection pattern:"
  1284.   catch ".fsBox.pattern.patterns.patterns config $tmpButtonOpt"
  1285.  
  1286.   menu .fsBox.pattern.patterns.patterns.menu
  1287.   catch ".fsBox.pattern.patterns.patterns.menu config $tmpButtonOpt"
  1288.  
  1289.   .fsBox.pattern.patterns.patterns.menu add checkbutton  -label "Scan extensions"  -variable fsBox(extensions)  -command {
  1290.       global fsBox
  1291.       FSBoxFSShow [.fsBox.path.path get]  [.fsBox.pattern.pattern get] $fsBox(all)}
  1292.  
  1293.   entry .fsBox.pattern.pattern  -relief raised
  1294.   catch ".fsBox.pattern.pattern config $tmpMessageOpt"
  1295.  
  1296.   .fsBox.pattern.pattern insert 0 $fsBox(pattern)
  1297.   
  1298.   frame .fsBox.files  -borderwidth 0  -relief raised
  1299.   catch ".fsBox.files config $tmpFrameOpt"
  1300.  
  1301.   scrollbar .fsBox.files.vscroll  -relief raised  -command ".fsBox.files.files yview"
  1302.   catch ".fsBox.files.vscroll config $tmpScrollOpt"
  1303.  
  1304.   scrollbar .fsBox.files.hscroll  -orient horiz  -relief raised  -command ".fsBox.files.files xview"
  1305.   catch ".fsBox.files.hscroll config $tmpScrollOpt"
  1306.  
  1307.   listbox .fsBox.files.files  -exportselection false  -relief raised  -xscrollcommand ".fsBox.files.hscroll set"  -yscrollcommand ".fsBox.files.vscroll set"
  1308.   catch ".fsBox.files.files config $tmpMessageOpt"
  1309.  
  1310.   frame .fsBox.file  -borderwidth 0  -relief raised
  1311.   catch ".fsBox.file config $tmpFrameOpt"
  1312.  
  1313.   label .fsBox.file.labelfile  -relief raised  -text "Filename:"
  1314.   catch ".fsBox.file.labelfile config $tmpMessageOpt"
  1315.  
  1316.   entry .fsBox.file.file  -relief raised
  1317.   catch ".fsBox.file.file config $tmpMessageOpt"
  1318.  
  1319.   .fsBox.file.file delete 0 end
  1320.   .fsBox.file.file insert 0 $fsBox(name)
  1321.   
  1322.   checkbutton .fsBox.pattern.all  -offvalue 0  -onvalue 1  -text "Show all files"  -variable fsBox(all)  -command {
  1323.       global fsBox
  1324.       FSBoxFSShow [.fsBox.path.path get]  [.fsBox.pattern.pattern get] $fsBox(all)}
  1325.   catch ".fsBox.pattern.all config $tmpButtonOpt"
  1326.  
  1327.   FSBoxFSShow $fsBox(internalPath) $fsBox(pattern) $fsBox(all)
  1328.  
  1329.   # bindings
  1330.   bind .fsBox.files.files <Double-Button-1> "
  1331.     FSBoxFSFileSelectDouble %W $fsBox(showPixmap) \{$fsBoxActionOk\} %y"
  1332.   bind .fsBox.files.files <ButtonPress-1> "
  1333.     FSBoxFSFileSelect %W $fsBox(showPixmap) %y"
  1334.   bind .fsBox.files.files <Button1-Motion> "
  1335.     FSBoxFSFileSelect %W $fsBox(showPixmap) %y"
  1336.   bind .fsBox.files.files <Shift-Button1-Motion> "
  1337.     FSBoxFSFileSelect %W $fsBox(showPixmap) %y"
  1338.   bind .fsBox.files.files <Shift-ButtonPress-1> "
  1339.     FSBoxFSFileSelect %W $fsBox(showPixmap) %y"
  1340.  
  1341.   bind .fsBox.path.path <Tab> {
  1342.     FSBoxFSNameComplete path}
  1343.   bind .fsBox.path.path <Return> {
  1344.     global tkVersion
  1345.     global fsBox
  1346.     FSBoxFSShow [.fsBox.path.path get]  [.fsBox.pattern.pattern get] $fsBox(all)
  1347.     FSBoxFSInsertPath
  1348.     if {$tkVersion >= 3.0} {
  1349.       .fsBox.file.file icursor end
  1350.     } {
  1351.       .fsBox.file.file cursor end
  1352.     }
  1353.     focus .fsBox.file.file}
  1354.   catch "bind .fsBox.path.path <Up> {}"
  1355.   bind .fsBox.path.path <Down> {
  1356.     global tkVersion
  1357.     if {$tkVersion >= 3.0} {
  1358.       .fsBox.file.file icursor end
  1359.     } {
  1360.       .fsBox.file.file cursor end
  1361.     }
  1362.     focus .fsBox.file.file}
  1363.  
  1364.   bind .fsBox.file.file <Tab> {
  1365.     FSBoxFSNameComplete file}
  1366.   bind .fsBox.file.file <Return> "
  1367.     global fsBox
  1368.     set fsBox(name) \[.fsBox.file.file get\]
  1369.     if {$fsBox(showPixmap)} {
  1370.       set fsBox(path) @\[.fsBox.path.path get\]
  1371.     } {
  1372.       set fsBox(path) \[.fsBox.path.path get\]
  1373.     }
  1374.     set fsBox(internalPath) \[.fsBox.path.path get\]
  1375.     $fsBoxActionOk
  1376.     if {\"\[info commands XFDestroy\]\" != \"\"} {
  1377.       catch {XFDestroy .fsBox}
  1378.     } {
  1379.       catch {destroy .fsBox}
  1380.     }"
  1381.   bind .fsBox.file.file <Up> {
  1382.     global tkVersion
  1383.     if {$tkVersion >= 3.0} {
  1384.       .fsBox.path.path icursor end
  1385.     } {
  1386.       .fsBox.path.path cursor end
  1387.     }
  1388.     focus .fsBox.path.path}
  1389.   bind .fsBox.file.file <Down> {
  1390.     global tkVersion
  1391.     if {$tkVersion >= 3.0} {
  1392.       .fsBox.pattern.pattern icursor end
  1393.     } {
  1394.       .fsBox.pattern.pattern cursor end
  1395.     }
  1396.     focus .fsBox.pattern.pattern}
  1397.  
  1398.   bind .fsBox.pattern.pattern <Return> {
  1399.     global fsBox
  1400.     FSBoxFSShow [.fsBox.path.path get]  [.fsBox.pattern.pattern get] $fsBox(all)}
  1401.   bind .fsBox.pattern.pattern <Up> {
  1402.     global tkVersion
  1403.     if {$tkVersion >= 3.0} {
  1404.       .fsBox.file.file icursor end
  1405.     } {
  1406.       .fsBox.file.file cursor end
  1407.     }
  1408.     focus .fsBox.file.file}
  1409.   catch "bind .fsBox.pattern.pattern <Down> {}"
  1410.  
  1411.   # packing
  1412.   pack append .fsBox.files  .fsBox.files.vscroll "$fsBox(scrollSide) filly"  .fsBox.files.hscroll {bottom fillx}  .fsBox.files.files {left fill expand}
  1413.   pack append .fsBox.file  .fsBox.file.labelfile {left}  .fsBox.file.file {left fill expand}
  1414.   pack append .fsBox.frame1  .fsBox.frame1.ok {left fill expand}  .fsBox.frame1.rescan {left fill expand}  .fsBox.frame1.cancel {left fill expand}
  1415.   pack append .fsBox.path.paths  .fsBox.path.paths.paths {left}
  1416.   pack append .fsBox.pattern.patterns  .fsBox.pattern.patterns.patterns {left}
  1417.   pack append .fsBox.path  .fsBox.path.paths {left}  .fsBox.path.path {left fill expand}
  1418.   pack append .fsBox.pattern  .fsBox.pattern.patterns {left}  .fsBox.pattern.all {right fill}  .fsBox.pattern.pattern {left fill expand}
  1419.   if {$fsBox(showPixmap)} {
  1420.     pack append .fsBox.frame2  .fsBox.frame2.scrollbar1 {left filly}  .fsBox.frame2.canvas2 {top expand fill}  .fsBox.frame2.scrollbar3 {top fillx} 
  1421.  
  1422.     pack append .fsBox  .fsBox.message1 {top fill}  .fsBox.frame1 {bottom fill}  .fsBox.pattern {bottom fill}  .fsBox.file {bottom fill}  .fsBox.path {bottom fill}  .fsBox.frame2 {right fill}  .fsBox.files {left fill expand}
  1423.   } {
  1424.     pack append .fsBox  .fsBox.message1 {top fill}  .fsBox.frame1 {bottom fill}  .fsBox.pattern {bottom fill}  .fsBox.file {bottom fill}  .fsBox.path {bottom fill}  .fsBox.files {left fill expand}
  1425.   }
  1426.  
  1427.   if {"$fsBoxActionOk" == "" && "$fsBoxActionCancel" == ""} {
  1428.     # wait for the box to be destroyed
  1429.     update idletask
  1430.     grab .fsBox
  1431.     tkwait window .fsBox
  1432.  
  1433.     if {"[string trim $fsBox(path)]" != "" ||
  1434.         "[string trim $fsBox(name)]" != ""} {
  1435.       if {"[string trimleft [string trim $fsBox(name)] /]" == ""} {
  1436.         return [string trimright [string trim $fsBox(path)] /]
  1437.       } {
  1438.         return [string trimright [string trim $fsBox(path)] /]/[string trimleft [string trim $fsBox(name)] /]
  1439.       }
  1440.     }
  1441.   }
  1442. }
  1443.  
  1444.  
  1445. # Procedure: FSBoxBindSelectOne
  1446. proc FSBoxBindSelectOne { fsBoxW fsBoxY} {
  1447. # xf ignore me 6
  1448.  
  1449.   set fsBoxNearest [$fsBoxW nearest $fsBoxY]
  1450.   if {$fsBoxNearest >= 0} {
  1451.     $fsBoxW select from $fsBoxNearest
  1452.     $fsBoxW select to $fsBoxNearest
  1453.   }
  1454. }
  1455.  
  1456.  
  1457. # Procedure: FSBoxFSFileSelect
  1458. proc FSBoxFSFileSelect { fsBoxW fsBoxShowPixmap fsBoxY} {
  1459. # xf ignore me 6
  1460.   global fsBox
  1461.  
  1462.   FSBoxBindSelectOne $fsBoxW $fsBoxY
  1463.   set fsBoxNearest [$fsBoxW nearest $fsBoxY]
  1464.   if {$fsBoxNearest >= 0} {
  1465.     set fsBoxTmpEntry [$fsBoxW get $fsBoxNearest]
  1466.     if {"[string index $fsBoxTmpEntry  [expr [string length $fsBoxTmpEntry]-1]]" == "/" ||
  1467.         "[string index $fsBoxTmpEntry  [expr [string length $fsBoxTmpEntry]-1]]" == "@"} {
  1468.       set fsBoxFileName [string range $fsBoxTmpEntry 0  [expr [string length $fsBoxTmpEntry]-2]]
  1469.       if {![IsADir [string trimright $fsBox(internalPath)/$fsBoxFileName @]] &&
  1470.           ![IsASymlink [string trimright $fsBox(internalPath)/$fsBoxFileName @]]} {
  1471.         set fsBoxFileName $fsBoxTmpEntry
  1472.       }
  1473.     } {
  1474.       if {"[string index $fsBoxTmpEntry  [expr [string length $fsBoxTmpEntry]-1]]" == "*"} {
  1475.         set fsBoxFileName [string range $fsBoxTmpEntry 0  [expr [string length $fsBoxTmpEntry]-2]]
  1476.         if {![file executable $fsBox(internalPath)/$fsBoxFileName]} {
  1477.           set fsBoxFileName $fsBoxTmpEntry
  1478.         }
  1479.       } {
  1480.         set fsBoxFileName $fsBoxTmpEntry
  1481.       }
  1482.     }
  1483.     if {![IsADir [string trimright $fsBox(internalPath)/$fsBoxFileName @]]} {
  1484.       set fsBox(name) $fsBoxFileName
  1485.       .fsBox.file.file delete 0 end
  1486.       .fsBox.file.file insert 0 $fsBox(name)
  1487.       if {$fsBoxShowPixmap} {
  1488.         catch ".fsBox.frame2.canvas2 itemconfigure currentBitmap -bitmap \"@$fsBox(internalPath)/$fsBox(name)\""
  1489.       }
  1490.     }
  1491.   }
  1492. }
  1493.  
  1494.  
  1495. # Procedure: FSBoxFSFileSelectDouble
  1496. proc FSBoxFSFileSelectDouble { fsBoxW fsBoxShowPixmap fsBoxAction fsBoxY} {
  1497. # xf ignore me 6
  1498.   global fsBox
  1499.  
  1500.   FSBoxBindSelectOne $fsBoxW $fsBoxY
  1501.   set fsBoxNearest [$fsBoxW nearest $fsBoxY]
  1502.   if {$fsBoxNearest >= 0} {
  1503.     set fsBoxTmpEntry [$fsBoxW get $fsBoxNearest]
  1504.     if {"$fsBoxTmpEntry" == "../"} {
  1505.       set fsBoxTmpEntry [string trimright [string trim $fsBox(internalPath)] "@/"]
  1506.       if {"$fsBoxTmpEntry" == ""} {
  1507.         return
  1508.       }
  1509.       FSBoxFSShow [file dirname $fsBoxTmpEntry]  [.fsBox.pattern.pattern get] $fsBox(all)
  1510.       .fsBox.path.path delete 0 end
  1511.       .fsBox.path.path insert 0 $fsBox(internalPath)
  1512.     } {
  1513.       if {"[string index $fsBoxTmpEntry  [expr [string length $fsBoxTmpEntry]-1]]" == "/" ||
  1514.           "[string index $fsBoxTmpEntry  [expr [string length $fsBoxTmpEntry]-1]]" == "@"} {
  1515.         set fsBoxFileName [string range $fsBoxTmpEntry 0  [expr [string length $fsBoxTmpEntry]-2]]
  1516.         if {![IsADir [string trimright $fsBox(internalPath)/$fsBoxFileName @]] &&
  1517.             ![IsASymlink [string trimright $fsBox(internalPath)/$fsBoxFileName @]]} {
  1518.           set fsBoxFileName $fsBoxTmpEntry
  1519.         }
  1520.       } {
  1521.         if {"[string index $fsBoxTmpEntry  [expr [string length $fsBoxTmpEntry]-1]]" == "*"} {
  1522.           set fsBoxFileName [string range $fsBoxTmpEntry 0  [expr [string length $fsBoxTmpEntry]-2]]
  1523.           if {![file executable $fsBox(internalPath)/$fsBoxFileName]} {
  1524.             set fsBoxFileName $fsBoxTmpEntry
  1525.           }
  1526.         } {
  1527.           set fsBoxFileName $fsBoxTmpEntry
  1528.         }
  1529.       }
  1530.       if {[IsADir [string trimright $fsBox(internalPath)/$fsBoxFileName @]]} {
  1531.         set fsBox(internalPath) "[string trimright $fsBox(internalPath) {/@}]/$fsBoxFileName"
  1532.         FSBoxFSShow $fsBox(internalPath)  [.fsBox.pattern.pattern get] $fsBox(all)
  1533.         .fsBox.path.path delete 0 end
  1534.         .fsBox.path.path insert 0 $fsBox(internalPath)
  1535.       } {
  1536.         set fsBox(name) $fsBoxFileName
  1537.         if {$fsBoxShowPixmap} {
  1538.           set fsBox(path) @$fsBox(internalPath)
  1539.         } {
  1540.           set fsBox(path) $fsBox(internalPath)
  1541.         }
  1542.         if {"$fsBoxAction" != ""} {
  1543.           eval "global fsBox; $fsBoxAction"
  1544.         }
  1545.         if {"[info commands XFDestroy]" != ""} {
  1546.           catch {XFDestroy .fsBox}
  1547.         } {
  1548.           catch {destroy .fsBox}
  1549.         }
  1550.       }
  1551.     }
  1552.   }
  1553. }
  1554.  
  1555.  
  1556. # Procedure: FSBoxFSInsertPath
  1557. proc FSBoxFSInsertPath {} {
  1558. # xf ignore me 6
  1559.   global fsBox
  1560.  
  1561.   set fsBoxLast [.fsBox.path.paths.paths.menu index last]
  1562.   set fsBoxNewEntry [string trimright [.fsBox.path.path get] "/@"]
  1563.   for {set fsBoxCounter 0} {$fsBoxCounter <= $fsBoxLast} {incr fsBoxCounter 1} {
  1564.     if {"$fsBoxNewEntry" ==  "[lindex [.fsBox.path.paths.paths.menu entryconfigure  $fsBoxCounter -label] 4]"} {
  1565.       return
  1566.     }
  1567.   }
  1568.   if {$fsBoxLast < 9} {
  1569.     .fsBox.path.paths.paths.menu add command  -label "$fsBoxNewEntry"  -command "
  1570.         global fsBox
  1571.         FSBoxFSShow $fsBoxNewEntry  \[.fsBox.pattern.pattern get\] \$fsBox(all)
  1572.         .fsBox.path.path delete 0 end
  1573.         .fsBox.path.path insert 0 $fsBoxNewEntry"
  1574.   } {
  1575.     for {set fsBoxCounter 0} {$fsBoxCounter < $fsBoxLast} {incr fsBoxCounter 1} {
  1576.       .fsBox.path.paths.paths.menu entryconfigure  $fsBoxCounter -label  [lindex [.fsBox.path.paths.paths.menu entryconfigure  [expr $fsBoxCounter+1] -label] 4]
  1577.       .fsBox.path.paths.paths.menu entryconfigure $fsBoxCounter  -command "
  1578.           global fsBox
  1579.           FSBoxFSShow [lindex [.fsBox.path.paths.paths.menu entryconfigure  [expr $fsBoxCounter+1] -label] 4]  \[.fsBox.pattern.pattern get\] \$fsBox(all)
  1580.           .fsBox.path.path delete 0 end
  1581.           .fsBox.path.path insert 0 [lindex  [.fsBox.path.paths.paths.menu entryconfigure  [expr $fsBoxCounter+1] -label] 4]"
  1582.     }
  1583.     .fsBox.path.paths.paths.menu entryconfigure $fsBoxLast  -label "$fsBoxNewEntry"
  1584.     .fsBox.path.paths.paths.menu entryconfigure $fsBoxCounter  -command "
  1585.         global fsBox
  1586.         FSBoxFSShow \[.fsBox.path.path get\]  \[.fsBox.pattern.pattern get\] \$fsBox(all)
  1587.         .fsBox.path.path delete 0 end
  1588.         .fsBox.path.path insert 0 $fsBoxNewEntry"
  1589.   }
  1590. }
  1591.  
  1592.  
  1593. # Procedure: FSBoxFSNameComplete
  1594. proc FSBoxFSNameComplete { fsBoxType} {
  1595. # xf ignore me 6
  1596.   global tkVersion
  1597.   global fsBox
  1598.  
  1599.   set fsBoxNewFile ""
  1600.   if {"$fsBoxType" == "path"} {
  1601.     set fsBoxDirName [file dirname [.fsBox.path.path get]]
  1602.     set fsBoxFileName [file tail [.fsBox.path.path get]]
  1603.   } {
  1604.     set fsBoxDirName [file dirname [.fsBox.path.path get]/]
  1605.     set fsBoxFileName [file tail [.fsBox.file.file get]]
  1606.   }
  1607.  
  1608.   set fsBoxNewFile ""
  1609.   if {[IsADir [string trimright $fsBoxDirName @]]} {
  1610.     catch "glob -nocomplain $fsBoxDirName/${fsBoxFileName}*" fsBoxResult
  1611.     foreach fsBoxCounter $fsBoxResult {
  1612.       if {"$fsBoxNewFile" == ""} {
  1613.         set fsBoxNewFile [file tail $fsBoxCounter]
  1614.       } {
  1615.         if {"[string index [file tail $fsBoxCounter] 0]" !=
  1616.             "[string index $fsBoxNewFile 0]"} {
  1617.           set fsBoxNewFile ""
  1618.           break
  1619.         }
  1620.         set fsBoxCounter1 0
  1621.         set fsBoxTmpFile1 $fsBoxNewFile
  1622.         set fsBoxTmpFile2 [file tail $fsBoxCounter]
  1623.         set fsBoxLength1 [string length $fsBoxTmpFile1]
  1624.         set fsBoxLength2 [string length $fsBoxTmpFile2]
  1625.         set fsBoxNewFile ""
  1626.         if {$fsBoxLength1 > $fsBoxLength2} {
  1627.           set fsBoxLength1 $fsBoxLength2
  1628.         }
  1629.         while {$fsBoxCounter1 < $fsBoxLength1} {
  1630.           if {"[string index $fsBoxTmpFile1 $fsBoxCounter1]" ==  "[string index $fsBoxTmpFile2 $fsBoxCounter1]"} {
  1631.             append fsBoxNewFile [string index $fsBoxTmpFile1 $fsBoxCounter1]
  1632.           } {
  1633.             break
  1634.           }
  1635.           incr fsBoxCounter1 1
  1636.         }
  1637.       }
  1638.     }
  1639.   }
  1640.   if {"$fsBoxNewFile" != ""} {
  1641.     if {[IsADir [string trimright $fsBoxDirName/$fsBoxNewFile @]] ||
  1642.         ![IsAFile [string trimright $fsBoxDirName/$fsBoxNewFile @]]} {
  1643.       if {[IsADir [string trimright $fsBoxDirName/$fsBoxNewFile @]]} {
  1644.         if {"$fsBoxDirName" == "/"} {
  1645.           .fsBox.path.path delete 0 end
  1646.           .fsBox.path.path insert 0 "/[string trimright [string trim $fsBoxNewFile /] @]/"
  1647.         } {
  1648.           .fsBox.path.path delete 0 end
  1649.           .fsBox.path.path insert 0 "[string trimright $fsBoxDirName /]/[string trimright [string trim $fsBoxNewFile /] @]/"
  1650.         }
  1651.         FSBoxFSShow [.fsBox.path.path get]  [.fsBox.pattern.pattern get] $fsBox(all)
  1652.         FSBoxFSInsertPath
  1653.       } {
  1654.         .fsBox.path.path delete 0 end
  1655.         .fsBox.path.path insert 0 "[string trimright $fsBoxDirName /]/[string trimright [string trim $fsBoxNewFile /] @]"
  1656.       }
  1657.     } {
  1658.       .fsBox.path.path delete 0 end
  1659.       .fsBox.path.path insert 0 "[string trimright $fsBoxDirName {@/}]/"
  1660.       .fsBox.file.file delete 0 end
  1661.       .fsBox.file.file insert 0 $fsBoxNewFile
  1662.       if {$tkVersion >= 3.0} {
  1663.         .fsBox.file.file icursor end
  1664.       } {
  1665.         .fsBox.file.file cursor end
  1666.       }
  1667.       focus .fsBox.file.file
  1668.     }
  1669.   }
  1670. }
  1671.  
  1672.  
  1673. # Procedure: FSBoxFSShow
  1674. proc FSBoxFSShow { fsBoxPath fsBoxPattern fsBoxAll} {
  1675. # xf ignore me 6
  1676.   global fsBox
  1677.  
  1678.   set tmpButtonOpt ""
  1679.   if {"$fsBox(activeBackground)" != ""} {
  1680.     append tmpButtonOpt "-activebackground \"$fsBox(activeBackground)\" "
  1681.   }
  1682.   if {"$fsBox(activeForeground)" != ""} {
  1683.     append tmpButtonOpt "-activeforeground \"$fsBox(activeForeground)\" "
  1684.   }
  1685.   if {"$fsBox(background)" != ""} {
  1686.     append tmpButtonOpt "-background \"$fsBox(background)\" "
  1687.   }
  1688.   if {"$fsBox(font)" != ""} {
  1689.     append tmpButtonOpt "-font \"$fsBox(font)\" "
  1690.   }
  1691.   if {"$fsBox(foreground)" != ""} {
  1692.     append tmpButtonOpt "-foreground \"$fsBox(foreground)\" "
  1693.   }
  1694.  
  1695.   set fsBox(pattern) $fsBoxPattern
  1696.   if {[file exists $fsBoxPath] && [file readable $fsBoxPath] &&
  1697.       [IsADir $fsBoxPath]} {
  1698.     set fsBox(internalPath) $fsBoxPath
  1699.   } {
  1700.     if {[file exists $fsBoxPath] && [file readable $fsBoxPath] &&
  1701.         [IsAFile $fsBoxPath]} {
  1702.       set fsBox(internalPath) [file dirname $fsBoxPath]
  1703.       .fsBox.file.file delete 0 end
  1704.       .fsBox.file.file insert 0 [file tail $fsBoxPath]
  1705.       set fsBoxPath $fsBox(internalPath)
  1706.     } {
  1707.       while {"$fsBoxPath" != "" && "$fsBoxPath" != "/" &&
  1708.              ![file isdirectory $fsBoxPath]} {
  1709.         set fsBox(internalPath) [file dirname $fsBoxPath]
  1710.          set fsBoxPath $fsBox(internalPath)
  1711.       }
  1712.     }
  1713.   }
  1714.   if {"$fsBoxPath" == ""} {
  1715.     set fsBoxPath "/"
  1716.     set fsBox(internalPath) "/"
  1717.   }
  1718.   .fsBox.path.path delete 0 end
  1719.   .fsBox.path.path insert 0 $fsBox(internalPath)
  1720.  
  1721.   if {[.fsBox.files.files size] > 0} {
  1722.     .fsBox.files.files delete 0 end
  1723.   }
  1724.   if {$fsBoxAll} {
  1725.     if {[catch "exec ls -F -a $fsBoxPath" fsBoxResult]} {
  1726.       puts stderr "$fsBoxResult"
  1727.     }
  1728.   } {
  1729.     if {[catch "exec ls -F $fsBoxPath" fsBoxResult]} {
  1730.       puts stderr "$fsBoxResult"
  1731.     }
  1732.   }
  1733.   set fsBoxElementList [lsort $fsBoxResult]
  1734.  
  1735.   foreach fsBoxCounter [winfo children .fsBox.pattern.patterns.patterns] {
  1736.     if {[string length [info commands XFDestroy]] > 0} {
  1737.       catch {XFDestroy $fsBoxCounter}
  1738.     } {
  1739.       catch {destroy $fsBoxCounter}
  1740.     }
  1741.   }
  1742.   menu .fsBox.pattern.patterns.patterns.menu
  1743.   catch ".fsBox.pattern.patterns.patterns.menu config $tmpButtonOpt"
  1744.  
  1745.   if {$fsBox(extensions)} {
  1746.     .fsBox.pattern.patterns.patterns.menu add command  -label "*"  -command {
  1747.         global fsBox
  1748.         set fsBox(pattern) "*"
  1749.         .fsBox.pattern.pattern delete 0 end
  1750.         .fsBox.pattern.pattern insert 0 $fsBox(pattern)
  1751.         FSBoxFSShow [.fsBox.path.path get] $fsBox(pattern)  $fsBox(all)}
  1752.   }
  1753.  
  1754.   if {"$fsBoxPath" != "/"} {
  1755.     .fsBox.files.files insert end "../"
  1756.   }
  1757.   foreach fsBoxCounter $fsBoxElementList {
  1758.     if {[string match $fsBoxPattern $fsBoxCounter] ||
  1759.         [IsADir [string trimright $fsBoxPath/$fsBoxCounter "/@"]]} {
  1760.       if {"$fsBoxCounter" != "../" &&
  1761.           "$fsBoxCounter" != "./"} {
  1762.         .fsBox.files.files insert end $fsBoxCounter
  1763.       }
  1764.     }
  1765.  
  1766.     if {$fsBox(extensions)} {
  1767.       catch "file rootname $fsBoxCounter" fsBoxRootName
  1768.       catch "file extension $fsBoxCounter" fsBoxExtension
  1769.       set fsBoxExtension [string trimright $fsBoxExtension "/*@"]
  1770.       if {"$fsBoxExtension" != "" && "$fsBoxRootName" != ""} {
  1771.         set fsBoxInsert 1
  1772.         set fsBoxLast [.fsBox.pattern.patterns.patterns.menu index last]
  1773.         for {set fsBoxCounter1 0} {$fsBoxCounter1 <= $fsBoxLast} {incr fsBoxCounter1 1} {
  1774.           if {"*$fsBoxExtension" ==  "[lindex [.fsBox.pattern.patterns.patterns.menu entryconfigure  $fsBoxCounter1 -label] 4]"} {
  1775.             set fsBoxInsert 0
  1776.           }
  1777.         }
  1778.     if {$fsBoxInsert} {
  1779.           .fsBox.pattern.patterns.patterns.menu add command  -label "*$fsBoxExtension"  -command "
  1780.               global fsBox
  1781.               set fsBox(pattern) \"*$fsBoxExtension\"
  1782.               .fsBox.pattern.pattern delete 0 end
  1783.               .fsBox.pattern.pattern insert 0 \$fsBox(pattern)
  1784.               FSBoxFSShow \[.fsBox.path.path get\] \$fsBox(pattern)  \$fsBox(all)"
  1785.         }
  1786.       }
  1787.     }
  1788.   }
  1789.   if {$fsBox(extensions)} {
  1790.     .fsBox.pattern.patterns.patterns.menu add separator
  1791.   }
  1792.   if {$fsBox(extensions) || 
  1793.       "[.fsBox.pattern.patterns.patterns.menu index last]" == "none"} {
  1794.     .fsBox.pattern.patterns.patterns.menu add checkbutton  -label "Scan extensions"  -variable "fsBox(extensions)"  -command {
  1795.         global fsBox
  1796.         FSBoxFSShow [.fsBox.path.path get]  [.fsBox.pattern.pattern get] $fsBox(all)}
  1797.   }
  1798. }
  1799.  
  1800.  
  1801. # Procedure: FdInList
  1802. proc FdInList { listWidget {fileInFile ""}} {
  1803. # xf ignore me 5
  1804. ##########
  1805. # Procedure: FdInList
  1806. # Description: fill a list with the contents of a filedescriptor
  1807. # Arguments: listWidget - the widget
  1808. #            {fileInFile} - a filedescriptor to read. The descriptor
  1809. #                           is closed after reading
  1810. # Returns: none
  1811. # Sideeffects: the list widget is filled
  1812. # Notes: there exists also a function called:
  1813. #          FileInList - to open and read a file automatically
  1814. ##########
  1815.  
  1816.   # check file existance
  1817.   if {"$fileInFile" == ""} {
  1818.     puts stderr "no filedescriptor specified"
  1819.     return
  1820.   }
  1821.  
  1822.   set listValue [read $fileInFile]
  1823.   close $fileInFile
  1824.   foreach fileLine [split $listValue "\n"] {
  1825.     $listWidget insert end $fileLine
  1826.   }
  1827. }
  1828.  
  1829.  
  1830. # Procedure: FdInText
  1831. proc FdInText { textWidget {fileInFile ""}} {
  1832. # xf ignore me 5
  1833. ##########
  1834. # Procedure: FdInText
  1835. # Description: fill a text with the contents of a filedescriptor
  1836. # Arguments: textWidget - the widget
  1837. #            {fileInFile} - a filedescriptor to read. The descriptor
  1838. #                           is closed after reading
  1839. # Returns: none
  1840. # Sideeffects: the text widget is filled
  1841. # Notes: there exists also a function called:
  1842. #          FileInText - to open and read a file automatically
  1843. ##########
  1844.  
  1845.   # check file existance
  1846.   if {"$fileInFile" == ""} {
  1847.     puts stderr "no filedescriptor specified"
  1848.     return
  1849.   }
  1850.  
  1851.   set textValue [read $fileInFile]
  1852.   $textWidget insert end "$textValue"
  1853.   close $fileInFile
  1854. }
  1855.  
  1856.  
  1857. # Procedure: FileInList
  1858. proc FileInList { listWidget {fileName ""}} {
  1859. # xf ignore me 5
  1860. ##########
  1861. # Procedure: FileInList
  1862. # Description: fill a list with the contents of the file
  1863. # Arguments: listWidget - the widget
  1864. #            {fileName} - filename to read
  1865. # Returns: none
  1866. # Sideeffects: the list widget is filled
  1867. # Notes: there exists also a function called:
  1868. #          FdInList - to read from an already opened filedescriptor
  1869. ##########
  1870.  
  1871.   # check file existance
  1872.   if {"$fileName" == ""} {
  1873.     puts stderr "no filename specified"
  1874.     return
  1875.   }
  1876.   if {[catch "open $fileName r" fileInFile]} {
  1877.     puts stderr "$fileInFile"
  1878.     return
  1879.   }
  1880.  
  1881.   set listValue [read $fileInFile]
  1882.   close $fileInFile
  1883.   foreach fileLine [split $listValue "\n"] {
  1884.     $listWidget insert end $fileLine
  1885.   }
  1886. }
  1887.  
  1888.  
  1889. # Procedure: FileInText
  1890. proc FileInText { textWidget {fileName ""}} {
  1891. # xf ignore me 5
  1892. ##########
  1893. # Procedure: FileInText
  1894. # Description: fill a text with the contents of the file
  1895. # Arguments: textWidget - the widget
  1896. #            {fileName} - filename to read
  1897. # Returns: none
  1898. # Sideeffects: the text widget is filled
  1899. # Notes: there exists also a function called:
  1900. #          FdInText - to read from an already opened filedescriptor
  1901. ##########
  1902.  
  1903.   # check file existance
  1904.   if {"$fileName" == ""} {
  1905.     puts stderr "no filename specified"
  1906.     return
  1907.   }
  1908.   if {[catch "open $fileName r" fileInFile]} {
  1909.     puts stderr "$fileInFile"
  1910.     return
  1911.   }
  1912.  
  1913.   set textValue [read $fileInFile]
  1914.   $textWidget insert end "$textValue"
  1915.   close $fileInFile
  1916. }
  1917.  
  1918.  
  1919. # Procedure: ForgetWindow
  1920. proc ForgetWindow { args} {
  1921.     foreach i $args    {
  1922.         pack forget $i
  1923.     }
  1924. }
  1925.  
  1926.  
  1927. # Procedure: InputBoxInternal
  1928. proc InputBoxInternal { inputBoxMessage inputBoxCommandOk inputBoxCommandCancel inputBoxGeometry inputBoxTitle lineNum} {
  1929. # xf ignore me 6
  1930.   global inputBox
  1931.  
  1932.   set tmpButtonOpt ""
  1933.   set tmpFrameOpt ""
  1934.   set tmpMessageOpt ""
  1935.   set tmpScaleOpt ""
  1936.   set tmpScrollOpt ""
  1937.   if {"$inputBox(activeBackground)" != ""} {
  1938.     append tmpButtonOpt "-activebackground \"$inputBox(activeBackground)\" "
  1939.   }
  1940.   if {"$inputBox(activeForeground)" != ""} {
  1941.     append tmpButtonOpt "-activeforeground \"$inputBox(activeForeground)\" "
  1942.   }
  1943.   if {"$inputBox(background)" != ""} {
  1944.     append tmpButtonOpt "-background \"$inputBox(background)\" "
  1945.     append tmpFrameOpt "-background \"$inputBox(background)\" "
  1946.     append tmpMessageOpt "-background \"$inputBox(background)\" "
  1947.   }
  1948.   if {"$inputBox(font)" != ""} {
  1949.     append tmpButtonOpt "-font \"$inputBox(font)\" "
  1950.     append tmpMessageOpt "-font \"$inputBox(font)\" "
  1951.   }
  1952.   if {"$inputBox(foreground)" != ""} {
  1953.     append tmpButtonOpt "-foreground \"$inputBox(foreground)\" "
  1954.     append tmpMessageOpt "-foreground \"$inputBox(foreground)\" "
  1955.   }
  1956.   if {"$inputBox(scrollActiveForeground)" != ""} {
  1957.     append tmpScrollOpt "-activeforeground \"$inputBox(scrollActiveForeground)\" "
  1958.   }
  1959.   if {"$inputBox(scrollBackground)" != ""} {
  1960.     append tmpScrollOpt "-background \"$inputBox(scrollBackground)\" "
  1961.   }
  1962.   if {"$inputBox(scrollForeground)" != ""} {
  1963.     append tmpScrollOpt "-foreground \"$inputBox(scrollForeground)\" "
  1964.   }
  1965.  
  1966.   # start build of toplevel
  1967.   if {"[info commands XFDestroy]" != ""} {
  1968.     catch {XFDestroy $inputBox(toplevelName)}
  1969.   } {
  1970.     catch {destroy $inputBox(toplevelName)}
  1971.   }
  1972.   toplevel $inputBox(toplevelName)  -borderwidth 0
  1973.   catch "$inputBox(toplevelName) config $tmpFrameOpt"
  1974.   if {[catch "wm geometry $inputBox(toplevelName) $inputBoxGeometry"]} {
  1975.     wm geometry $inputBox(toplevelName) 350x150
  1976.   }
  1977.   wm title $inputBox(toplevelName) $inputBoxTitle
  1978.   wm maxsize $inputBox(toplevelName) 1000 1000
  1979.   wm minsize $inputBox(toplevelName) 100 100
  1980.   # end build of toplevel
  1981.  
  1982.   message $inputBox(toplevelName).message1  -anchor "$inputBox(anchor)"  -justify "$inputBox(justify)"  -relief raised  -text "$inputBoxMessage"
  1983.   catch "$inputBox(toplevelName).message1 config $tmpMessageOpt"
  1984.  
  1985.   set xfTmpWidth  [string range $inputBoxGeometry 0 [expr [string first x $inputBoxGeometry]-1]]
  1986.   if {"$xfTmpWidth" != ""} {
  1987.     # set message size
  1988.     catch "$inputBox(toplevelName).message1 configure  -width [expr $xfTmpWidth-10]"
  1989.   } {
  1990.     $inputBox(toplevelName).message1 configure  -aspect 1500
  1991.   }
  1992.  
  1993.   frame $inputBox(toplevelName).topmenubar  -borderwidth 0  -relief raised
  1994.   catch "$inputBox(toplevelName).topmenubar config $tmpFrameOpt"
  1995.  
  1996.   frame $inputBox(toplevelName).frame1  -borderwidth 0  -relief raised
  1997.   catch "$inputBox(toplevelName).frame1 config $tmpFrameOpt"
  1998.  
  1999.   if {$lineNum == 1} {
  2000.     scrollbar $inputBox(toplevelName).frame1.hscroll  -orient "horizontal"  -relief raised  -command "$inputBox(toplevelName).frame1.input view"
  2001.     catch "$inputBox(toplevelName).frame1.hscroll config $tmpScrollOpt"
  2002.  
  2003.     entry $inputBox(toplevelName).frame1.input  -relief raised  -scrollcommand "$inputBox(toplevelName).frame1.hscroll set"
  2004.     catch "$inputBox(toplevelName).frame1.input config $tmpMessageOpt"
  2005.  
  2006.     $inputBox(toplevelName).frame1.input insert 0  $inputBox($inputBox(toplevelName),inputOne)
  2007.     
  2008.     # bindings
  2009.     bind $inputBox(toplevelName).frame1.input <Return> "
  2010.       global inputBox
  2011.       set inputBox($inputBox(toplevelName),inputOne) \[$inputBox(toplevelName).frame1.input get\]
  2012.       if {\"\[info commands XFDestroy\]\" != \"\"} {
  2013.         catch {XFDestroy $inputBox(toplevelName)}
  2014.       } {
  2015.         catch {destroy $inputBox(toplevelName)}
  2016.       }
  2017.       $inputBoxCommandOk"
  2018.     
  2019.     # packing
  2020.     pack append $inputBox(toplevelName).frame1  $inputBox(toplevelName).frame1.hscroll {bottom fill}  $inputBox(toplevelName).frame1.input {top fill expand}
  2021.   } {
  2022.     text $inputBox(toplevelName).frame1.input  -relief raised  -wrap none  -borderwidth 2  -yscrollcommand "$inputBox(toplevelName).frame1.vscroll set"
  2023.     catch "$inputBox(toplevelName).frame1.input config $tmpMessageOpt"
  2024.  
  2025.     scrollbar $inputBox(toplevelName).frame1.vscroll  -relief raised  -command "$inputBox(toplevelName).frame1.input yview"
  2026.     catch "$inputBox(toplevelName).frame1.vscroll config $tmpScrollOpt"
  2027.  
  2028.     $inputBox(toplevelName).frame1.input insert 1.0  $inputBox($inputBox(toplevelName),inputMulti)
  2029.  
  2030.     # bindings
  2031.     bind $inputBox(toplevelName).frame1.input <Control-Return> "
  2032.       global inputBox
  2033.       set inputBox($inputBox(toplevelName),inputMulti) \[$inputBox(toplevelName).frame1.input get 1.0 end\]
  2034.       if {\"\[info commands XFDestroy\]\" != \"\"} {
  2035.         catch {XFDestroy $inputBox(toplevelName)}
  2036.       } {
  2037.         catch {destroy $inputBox(toplevelName)}
  2038.       }
  2039.       $inputBoxCommandOk"
  2040.     bind $inputBox(toplevelName).frame1.input <Meta-Return> "
  2041.       global inputBox
  2042.       set inputBox($inputBox(toplevelName),inputMulti) \[$inputBox(toplevelName).frame1.input get 1.0 end\]
  2043.       if {\"\[info commands XFDestroy\]\" != \"\"} {
  2044.         catch {XFDestroy $inputBox(toplevelName)}
  2045.       } {
  2046.         catch {destroy $inputBox(toplevelName)}
  2047.       }
  2048.       $inputBoxCommandOk"
  2049.  
  2050.     # packing
  2051.     pack append $inputBox(toplevelName).frame1  $inputBox(toplevelName).frame1.vscroll "$inputBox(scrollSide) filly"  $inputBox(toplevelName).frame1.input {left fill expand}
  2052.   }
  2053.   
  2054.   button $inputBox(toplevelName).topmenubar.okButton  -text "OK"  -command "
  2055.       global inputBox
  2056.       if {$lineNum == 1} {
  2057.         set inputBox($inputBox(toplevelName),inputOne) \[$inputBox(toplevelName).frame1.input get\]
  2058.       } {
  2059.         set inputBox($inputBox(toplevelName),inputMulti) \[$inputBox(toplevelName).frame1.input get 1.0 end\]
  2060.       }
  2061.       if {\"\[info commands XFDestroy\]\" != \"\"} {
  2062.         catch {XFDestroy $inputBox(toplevelName)}
  2063.       } {
  2064.         catch {destroy $inputBox(toplevelName)}
  2065.       }
  2066.       $inputBoxCommandOk"
  2067.   catch "$inputBox(toplevelName).topmenubar.okButton config $tmpButtonOpt"
  2068.  
  2069.   button $inputBox(toplevelName).topmenubar.button1  -text "Cancel"  -command "
  2070.       global inputBox
  2071.       if {$lineNum == 1} {
  2072.         set inputBox($inputBox(toplevelName),inputOne) \"\"
  2073.       } {
  2074.         set inputBox($inputBox(toplevelName),inputMulti) \"\"
  2075.       }
  2076.       if {\"\[info commands XFDestroy\]\" != \"\"} {
  2077.         catch {XFDestroy $inputBox(toplevelName)}
  2078.       } {
  2079.         catch {destroy $inputBox(toplevelName)}
  2080.       }
  2081.       $inputBoxCommandCancel"
  2082.   catch "$inputBox(toplevelName).topmenubar.button1 config $tmpButtonOpt"
  2083.  
  2084.   pack append $inputBox(toplevelName).topmenubar  $inputBox(toplevelName).topmenubar.okButton {left fill expand}  $inputBox(toplevelName).topmenubar.button1 {left fill expand}
  2085.  
  2086.   pack append $inputBox(toplevelName)  $inputBox(toplevelName).topmenubar {bottom fill}  $inputBox(toplevelName).frame1 {bottom fill expand}  $inputBox(toplevelName).message1 {top fill}
  2087. }
  2088.  
  2089.  
  2090. # Procedure: IsADir
  2091. proc IsADir { pathName} {
  2092. # xf ignore me 5
  2093. ##########
  2094. # Procedure: IsADir
  2095. # Description: check if name is a directory (including symbolic links)
  2096. # Arguments: pathName - the path to check
  2097. # Returns: 1 if its a directory, otherwise 0
  2098. # Sideeffects: none
  2099. ##########
  2100.  
  2101.   if {[file isdirectory $pathName]} {
  2102.     return 1
  2103.   } {
  2104.     catch "file type $pathName" fileType
  2105.     if {"$fileType" == "link"} {
  2106.       if {[catch "file readlink $pathName" linkName]} {
  2107.         return 0
  2108.       }
  2109.       catch "file type $linkName" fileType
  2110.       while {"$fileType" == "link"} {
  2111.         if {[catch "file readlink $linkName" linkName]} {
  2112.           return 0
  2113.         }
  2114.         catch "file type $linkName" fileType
  2115.       }
  2116.       return [file isdirectory $linkName]
  2117.     }
  2118.   }
  2119.   return 0
  2120. }
  2121.  
  2122.  
  2123. # Procedure: IsAFile
  2124. proc IsAFile { fileName} {
  2125. # xf ignore me 5
  2126. ##########
  2127. # Procedure: IsAFile
  2128. # Description: check if filename is a file (including symbolic links)
  2129. # Arguments: fileName - the filename to check
  2130. # Returns: 1 if its a file, otherwise 0
  2131. # Sideeffects: none
  2132. ##########
  2133.  
  2134.   if {[file isfile $fileName]} {
  2135.     return 1
  2136.   } {
  2137.     catch "file type $fileName" fileType
  2138.     if {"$fileType" == "link"} {
  2139.       if {[catch "file readlink $fileName" linkName]} {
  2140.         return 0
  2141.       }
  2142.       catch "file type $linkName" fileType
  2143.       while {"$fileType" == "link"} {
  2144.         if {[catch "file readlink $linkName" linkName]} {
  2145.           return 0
  2146.         }
  2147.         catch "file type $linkName" fileType
  2148.       }
  2149.       return [file isfile $linkName]
  2150.     }
  2151.   }
  2152.   return 0
  2153. }
  2154.  
  2155.  
  2156. # Procedure: IsASymlink
  2157. proc IsASymlink { fileName} {
  2158. # xf ignore me 5
  2159. ##########
  2160. # Procedure: IsASymlink
  2161. # Description: check if filename is a symbolic link
  2162. # Arguments: fileName - the path/filename to check
  2163. # Returns: none
  2164. # Sideeffects: none
  2165. ##########
  2166.  
  2167.   catch "file type $fileName" fileType
  2168.   if {"$fileType" == "link"} {
  2169.     return 1
  2170.   }
  2171.   return 0
  2172. }
  2173.  
  2174.  
  2175. # Procedure: TextBox
  2176. proc TextBox { {textBoxMessage "Text message"} {textBoxCommand ""} {textBoxGeometry "350x150"} {textBoxTitle "Text box"} args} {
  2177. # xf ignore me 5
  2178. ##########
  2179. # Procedure: TextBox
  2180. # Description: show text box
  2181. # Arguments: {textBoxMessage} - the text to display
  2182. #            {textBoxCommand} - the command to call after ok
  2183. #            {textBoxGeometry} - the geometry for the window
  2184. #            {textBoxTitle} - the title for the window
  2185. #            {args} - labels of buttons
  2186. # Returns: The number of the selected button, or nothing
  2187. # Sideeffects: none
  2188. # Notes: there exist also functions called:
  2189. #          TextBoxFile - to open and read a file automatically
  2190. #          TextBoxFd - to read from an already opened filedescriptor
  2191. ##########
  2192. #
  2193. # global textBox(activeBackground) - active background color
  2194. # global textBox(activeForeground) - active foreground color
  2195. # global textBox(background) - background color
  2196. # global textBox(font) - text font
  2197. # global textBox(foreground) - foreground color
  2198. # global textBox(scrollActiveForeground) - scrollbar active background color
  2199. # global textBox(scrollBackground) - scrollbar background color
  2200. # global textBox(scrollForeground) - scrollbar foreground color
  2201. # global textBox(scrollSide) - side where scrollbar is located
  2202.  
  2203.   global textBox
  2204.         set textBox(activeBackground) "#bfbfbf"
  2205.         set textBox(activeForeground) "black"
  2206.     set textBox(background) "#bfbfbf"
  2207.     set textBox(scrollBackground) "#bfbfbf"
  2208.     set textBox(scrollForeground) "#bfbfbf"
  2209.     set textBox(scrollActiveForeground) "#bfbfbf"
  2210.     set textBox(scrollSide) "right"
  2211.  
  2212.   # show text box
  2213.   if {[llength $args] > 0} {
  2214.     eval TextBoxInternal "\{$textBoxMessage\}" "\{$textBoxCommand\}" "\{$textBoxGeometry\}" "\{$textBoxTitle\}" $args
  2215.   } {
  2216.     TextBoxInternal $textBoxMessage $textBoxCommand $textBoxGeometry $textBoxTitle
  2217.   }
  2218.  
  2219.   if {[llength $args] > 0} {
  2220.     # wait for the box to be destroyed
  2221.     update idletask
  2222.     grab $textBox(toplevelName)
  2223.     tkwait window $textBox(toplevelName)
  2224.  
  2225.     return $textBox(button)
  2226.   }
  2227. }
  2228.  
  2229.  
  2230. # Procedure: TextBoxFd
  2231. proc TextBoxFd { {textBoxInFile ""} {textBoxCommand ""} {textBoxGeometry "350x150"} {textBoxTitle "Text box"} args} {
  2232. # xf ignore me 5
  2233. ##########
  2234. # Procedure: TextBoxFd
  2235. # Description: show text box containing a filedescriptor
  2236. # Arguments: {textBoxInFile} - a filedescriptor to read. The descriptor
  2237. #                              is closed after reading
  2238. #            {textBoxCommand} - the command to call after ok
  2239. #            {textBoxGeometry} - the geometry for the window
  2240. #            {textBoxTitle} - the title for the window
  2241. #            {args} - labels of buttons
  2242. # Returns: The number of the selected button, ot nothing
  2243. # Sideeffects: none
  2244. # Notes: there exist also functions called:
  2245. #          TextBox - to display a passed string
  2246. #          TextBoxFile - to open and read a file automatically
  2247. ##########
  2248. #
  2249. # global textBox(activeBackground) - active background color
  2250. # global textBox(activeForeground) - active foreground color
  2251. # global textBox(background) - background color
  2252. # global textBox(font) - text font
  2253. # global textBox(foreground) - foreground color
  2254. # global textBox(scrollActiveForeground) - scrollbar active background color
  2255. # global textBox(scrollBackground) - scrollbar background color
  2256. # global textBox(scrollForeground) - scrollbar foreground color
  2257. # global textBox(scrollSide) - side where scrollbar is located
  2258.  
  2259.   global textBox
  2260.  
  2261.   # check file existance
  2262.   if {"$textBoxInFile" == ""} {
  2263.     puts stderr "No filedescriptor specified"
  2264.     return
  2265.   }
  2266.  
  2267.   set textBoxMessage [read $textBoxInFile]
  2268.   close $textBoxInFile
  2269.  
  2270.   # show text box
  2271.   if {[llength $args] > 0} {
  2272.     eval TextBoxInternal "\{$textBoxMessage\}" "\{$textBoxCommand\}" "\{$textBoxGeometry\}" "\{$textBoxTitle\}" $args
  2273.   } {
  2274.     TextBoxInternal $textBoxMessage $textBoxCommand $textBoxGeometry $textBoxTitle
  2275.   }
  2276.  
  2277.   if {[llength $args] > 0} {
  2278.     # wait for the box to be destroyed
  2279.     update idletask
  2280.     grab $textBox(toplevelName)
  2281.     tkwait window $textBox(toplevelName)
  2282.  
  2283.     return $textBox(button)
  2284.   }
  2285. }
  2286.  
  2287.  
  2288. # Procedure: TextBoxFile
  2289. proc TextBoxFile { {textBoxFile ""} {textBoxCommand ""} {textBoxGeometry "350x150"} {textBoxTitle "Text box"} args} {
  2290. # xf ignore me 5
  2291. ##########
  2292. # Procedure: TextBoxFile
  2293. # Description: show text box containing a file
  2294. # Arguments: {textBoxFile} - filename to read
  2295. #            {textBoxCommand} - the command to call after ok
  2296. #            {textBoxGeometry} - the geometry for the window
  2297. #            {textBoxTitle} - the title for the window
  2298. #            {args} - labels of buttons
  2299. # Returns: The number of the selected button, ot nothing
  2300. # Sideeffects: none
  2301. # Notes: there exist also functions called:
  2302. #          TextBox - to display a passed string
  2303. #          TextBoxFd - to read from an already opened filedescriptor
  2304. ##########
  2305. #
  2306. # global textBox(activeBackground) - active background color
  2307. # global textBox(activeForeground) - active foreground color
  2308. # global textBox(background) - background color
  2309. # global textBox(font) - text font
  2310. # global textBox(foreground) - foreground color
  2311. # global textBox(scrollActiveForeground) - scrollbar active background color
  2312. # global textBox(scrollBackground) - scrollbar background color
  2313. # global textBox(scrollForeground) - scrollbar foreground color
  2314. # global textBox(scrollSide) - side where scrollbar is located
  2315.  
  2316.   global textBox
  2317.  
  2318.   # check file existance
  2319.   if {"$textBoxFile" == ""} {
  2320.     puts stderr "No filename specified"
  2321.     return
  2322.   }
  2323.  
  2324.   if {[catch "open $textBoxFile r" textBoxInFile]} {
  2325.     puts stderr "$textBoxInFile"
  2326.     return
  2327.   }
  2328.  
  2329.   set textBoxMessage [read $textBoxInFile]
  2330.   close $textBoxInFile
  2331.  
  2332.   # show text box
  2333.   if {[llength $args] > 0} {
  2334.     eval TextBoxInternal "\{$textBoxMessage\}" "\{$textBoxCommand\}" "\{$textBoxGeometry\}" "\{$textBoxTitle\}" $args
  2335.   } {
  2336.     TextBoxInternal $textBoxMessage $textBoxCommand $textBoxGeometry $textBoxTitle
  2337.   }
  2338.  
  2339.   if {[llength $args] > 0} {
  2340.     # wait for the box to be destroyed
  2341.     update idletask
  2342.     grab $textBox(toplevelName)
  2343.     tkwait window $textBox(toplevelName)
  2344.  
  2345.     return $textBox(button)
  2346.   }
  2347. }
  2348.  
  2349.  
  2350. # Procedure: TextBoxInternal
  2351. proc TextBoxInternal { textBoxMessage textBoxCommand textBoxGeometry textBoxTitle args} {
  2352. # xf ignore me 6
  2353.   global textBox
  2354.  
  2355.   set tmpButtonOpt ""
  2356.   set tmpFrameOpt ""
  2357.   set tmpMessageOpt ""
  2358.   set tmpScrollOpt ""
  2359.   if {"$textBox(activeBackground)" != ""} {
  2360.     append tmpButtonOpt "-activebackground \"$textBox(activeBackground)\" "
  2361.   }
  2362.   if {"$textBox(activeForeground)" != ""} {
  2363.     append tmpButtonOpt "-activeforeground \"$textBox(activeForeground)\" "
  2364.   }
  2365.   if {"$textBox(background)" != ""} {
  2366.     append tmpButtonOpt "-background \"$textBox(background)\" "
  2367.     append tmpFrameOpt "-background \"$textBox(background)\" "
  2368.     append tmpMessageOpt "-background \"$textBox(background)\" "
  2369.   }
  2370.   if {"$textBox(font)" != ""} {
  2371.     append tmpButtonOpt "-font \"$textBox(font)\" "
  2372.     append tmpMessageOpt "-font \"$textBox(font)\" "
  2373.   }
  2374.   if {"$textBox(foreground)" != ""} {
  2375.     append tmpButtonOpt "-foreground \"$textBox(foreground)\" "
  2376.     append tmpMessageOpt "-foreground \"$textBox(foreground)\" "
  2377.   }
  2378.   if {"$textBox(scrollActiveForeground)" != ""} {
  2379.     append tmpScrollOpt "-activeforeground \"$textBox(scrollActiveForeground)\" "
  2380.   }
  2381.   if {"$textBox(scrollBackground)" != ""} {
  2382.     append tmpScrollOpt "-background \"$textBox(scrollBackground)\" "
  2383.   }
  2384.   if {"$textBox(scrollForeground)" != ""} {
  2385.     append tmpScrollOpt "-foreground \"$textBox(scrollForeground)\" "
  2386.   }
  2387.  
  2388.   # start build of toplevel
  2389.   if {"[info commands XFDestroy]" != ""} {
  2390.     catch {XFDestroy $textBox(toplevelName)}
  2391.   } {
  2392.     catch {destroy $textBox(toplevelName)}
  2393.   }
  2394.   toplevel $textBox(toplevelName)  -borderwidth 0
  2395.   catch "$textBox(toplevelName) config $tmpFrameOpt"
  2396.   if {[catch "wm geometry $textBox(toplevelName) $textBoxGeometry"]} {
  2397.     wm geometry $textBox(toplevelName) 350x150
  2398.   }
  2399.   wm title $textBox(toplevelName) $textBoxTitle
  2400.   wm maxsize $textBox(toplevelName) 1000 1000
  2401.   wm minsize $textBox(toplevelName) 100 100
  2402.   # end build of toplevel
  2403.  
  2404.   frame $textBox(toplevelName).topmenubar  -borderwidth 0  -relief raised
  2405.   catch "$textBox(toplevelName).topmenubar config $tmpFrameOpt"
  2406.  
  2407.   text $textBox(toplevelName).topmenubar.text1  -relief raised  -wrap none  -borderwidth 2  -yscrollcommand "$textBox(toplevelName).topmenubar.vscroll set"
  2408.   catch "$textBox(toplevelName).topmenubar.text1 config $tmpMessageOpt"
  2409.  
  2410.   scrollbar $textBox(toplevelName).topmenubar.vscroll  -relief raised  -command "$textBox(toplevelName).topmenubar.text1 yview"
  2411.   catch "$textBox(toplevelName).topmenubar.vscroll config $tmpScrollOpt"
  2412.  
  2413.   frame $textBox(toplevelName).frame1  -borderwidth 0  -relief raised
  2414.   catch "$textBox(toplevelName).frame1 config $tmpFrameOpt"
  2415.  
  2416.   set textBoxCounter 0
  2417.   set buttonNum [llength $args]
  2418.  
  2419.   if {$buttonNum > 0} {
  2420.     while {$textBoxCounter < $buttonNum} {
  2421.       button $textBox(toplevelName).frame1.button$textBoxCounter  -text "[lindex $args $textBoxCounter]"  -command "
  2422.           global textBox
  2423.           set textBox(button) $textBoxCounter
  2424.           set textBox(contents) \[$textBox(toplevelName).topmenubar.text1 get 1.0 end\]
  2425.           if {\"\[info commands XFDestroy\]\" != \"\"} {
  2426.             catch {XFDestroy $textBox(toplevelName)}
  2427.           } {
  2428.             catch {destroy $textBox(toplevelName)}
  2429.           }"
  2430.       catch "$textBox(toplevelName).frame1.button$textBoxCounter config $tmpButtonOpt"
  2431.  
  2432.       pack append $textBox(toplevelName).frame1  $textBox(toplevelName).frame1.button$textBoxCounter {left fillx expand}
  2433.  
  2434.       incr textBoxCounter
  2435.     }
  2436.   } {
  2437.     button $textBox(toplevelName).frame1.button0  -text "OK"  -command "
  2438.         global textBox
  2439.         set textBox(button) 0
  2440.         set textBox(contents) \[$textBox(toplevelName).topmenubar.text1 get 1.0 end\]
  2441.         if {\"\[info commands XFDestroy\]\" != \"\"} {
  2442.           catch {XFDestroy $textBox(toplevelName)}
  2443.         } {
  2444.           catch {destroy $textBox(toplevelName)}
  2445.         }
  2446.         $textBoxCommand"
  2447.     catch "$textBox(toplevelName).frame1.button0 config $tmpButtonOpt"
  2448.  
  2449.     pack append $textBox(toplevelName).frame1  $textBox(toplevelName).frame1.button0 {left fillx expand}
  2450.   }
  2451.  
  2452.   $textBox(toplevelName).topmenubar.text1 insert end "$textBoxMessage"
  2453.  
  2454.   $textBox(toplevelName).topmenubar.text1 config  -state $textBox(state)
  2455.  
  2456.   # packing
  2457.   pack append $textBox(toplevelName).topmenubar  $textBox(toplevelName).topmenubar.vscroll "$textBox(scrollSide) filly"  $textBox(toplevelName).topmenubar.text1 {left fill expand}
  2458.   pack append $textBox(toplevelName)  $textBox(toplevelName).frame1 {bottom fill}  $textBox(toplevelName).topmenubar {top fill expand}
  2459. }
  2460.  
  2461.  
  2462. # Procedure: WriteVars
  2463. proc WriteVars { writeToFile} {
  2464.     global choosemethod packmethod writemethod formatalways verifyformat verifyalways verifywrite mnr mdens 
  2465.     set f1 [open $writeToFile w+]
  2466.         set setname [getsetname $setnameselection] 
  2467.     puts $f1 "export pre_choosemethod=$choosemethod"
  2468.     puts $f1 "export pre_packmethod=$packmethod"
  2469.     puts $f1 "export pre_writemethod=$writemethod"
  2470.     puts $f1 "export pre_mnr=$mnr"    
  2471.     puts $f1 "export pre_formatalways=$formatalways"
  2472.     puts $f1 "export pre_verifyformat=$verifyformat"
  2473.     puts $f1 "export pre_verifywrite=$verifywrite"
  2474.         puts $f1 "export pre_setname=$setname"
  2475.     puts $f1 "export mdens=$mdens"
  2476.     close $f1
  2477. }
  2478.  
  2479.  
  2480. # Procedure: fileselect.cancel.cmd
  2481. proc fileselect.cancel.cmd { w} {
  2482. # xf ignore me 6
  2483.     # puts stderr "Cancel"
  2484.     if {"[info commands XFDestroy]" != ""} {
  2485.         catch {XFDestroy $w}
  2486.     } {
  2487.         catch {destroy $w}
  2488.     }
  2489. }
  2490.  
  2491.  
  2492. # Procedure: fileselect.ok.cmd
  2493. proc fileselect.ok.cmd { w cmd} {
  2494. # xf ignore me 6
  2495.     global fileselect_entry fileselect_dirlabel fileselect_list 
  2496.     set selected [$fileselect_entry get]
  2497.  
  2498.     if {[file isdirectory $selected] != 0} {
  2499.     cd $selected
  2500.     set dir [exec pwd]
  2501.     eval $fileselect_dirlabel configure -text $dir
  2502.     eval $fileselect_entry delete 0 end
  2503.     eval $fileselect_list delete 0 end
  2504.     foreach i [exec ls -a $dir] {
  2505.         if {[string compare $i "."] != 0} {
  2506.         eval $fileselect_list insert end $i
  2507.         }
  2508.     }
  2509.     return
  2510.     }
  2511.  
  2512.     if {"[info commands XFDestroy]" != ""} {
  2513.         catch {XFDestroy $w}
  2514.     } {
  2515.         catch {destroy $w}
  2516.     }
  2517.     eval $cmd \"$selected\"
  2518. }
  2519.  
  2520.  
  2521. # Procedure: getsetname
  2522. proc getsetname { setnameselection} {
  2523.         global setnameselection
  2524.     set setstring [string trim $setnameselection \{\}] ; #get rid of the "{}'s
  2525.     set returnval [string trim [lrange $setstring 0 0]]
  2526.     return $returnval
  2527. }
  2528.  
  2529.  
  2530. # Procedure: lreplaceit
  2531. proc lreplaceit { list value newval} {
  2532.   set ix [lsearch -exact $list $value]
  2533.   if {$ix >= 0} {
  2534.     set newlist [lreplace $list $ix $ix $newval ]
  2535.     return [lreplaceit $newlist $value $newval ]
  2536.   } else {
  2537.     return $list
  2538.       }
  2539. }
  2540.  
  2541.  
  2542. # Procedure: opensetfilelist
  2543. proc opensetfilelist { setfilelistname} {
  2544.     set fd [open $setfilelistname w] 
  2545.     #pop the info into the file...
  2546.     puts $fd [exec /usr/lib/tbackup/bin/listsets]
  2547.     close $fd
  2548.     set fd [open $setfilelistname r]
  2549.     set alist [read $fd] ; #put the contents of the file in a list struct
  2550.     close $fd
  2551.     set fd [open $setfilelistname w]
  2552.     set setfilelist [join [lreplaceit [lreplaceit $alist # \-\-] \[END\] \n]]
  2553.     puts $fd $setfilelist
  2554.     close $fd
  2555.     set lengthofthislist [llength $setfilelist]
  2556.     return $lengthofthislist ; Want it to return # of lines!
  2557. }
  2558.  
  2559.  
  2560. # Internal procedures
  2561.  
  2562.  
  2563. # Procedure: Alias
  2564. if {"[info procs Alias]" == ""} {
  2565. proc Alias { args} {
  2566. # xf ignore me 7
  2567. ##########
  2568. # Procedure: Alias
  2569. # Description: establish an alias for a procedure
  2570. # Arguments: args - no argument means that a list of all aliases
  2571. #                   is returned. Otherwise the first parameter is
  2572. #                   the alias name, and the second parameter is
  2573. #                   the procedure that is aliased.
  2574. # Returns: nothing, the command that is bound to the alias or a
  2575. #          list of all aliases - command pairs. 
  2576. # Sideeffects: internalAliasList is updated, and the alias
  2577. #              proc is inserted
  2578. ##########
  2579.   global internalAliasList
  2580.  
  2581.   if {[llength $args] == 0} {
  2582.     return $internalAliasList
  2583.   } {
  2584.     if {[llength $args] == 1} {
  2585.       set xfTmpIndex [lsearch $internalAliasList "[lindex $args 0] *"]
  2586.       if {$xfTmpIndex != -1} {
  2587.         return [lindex [lindex $internalAliasList $xfTmpIndex] 1]
  2588.       }
  2589.     } {
  2590.       if {[llength $args] == 2} {
  2591.         eval "proc [lindex $args 0] {args} {#xf ignore me 4
  2592. return \[eval \"[lindex $args 1] \$args\"\]}"
  2593.         set xfTmpIndex [lsearch $internalAliasList "[lindex $args 0] *"]
  2594.         if {$xfTmpIndex != -1} {
  2595.           set internalAliasList [lreplace $internalAliasList $xfTmpIndex $xfTmpIndex "[lindex $args 0] [lindex $args 1]"]
  2596.         } {
  2597.           lappend internalAliasList "[lindex $args 0] [lindex $args 1]"
  2598.         }
  2599.       } {
  2600.         error "Alias: wrong number or args: $args"
  2601.       }
  2602.     }
  2603.   }
  2604. }
  2605. }
  2606.  
  2607.  
  2608. # Procedure: GetSelection
  2609. if {"[info procs GetSelection]" == ""} {
  2610. proc GetSelection {} {
  2611. # xf ignore me 7
  2612. ##########
  2613. # Procedure: GetSelection
  2614. # Description: get current selection
  2615. # Arguments: none
  2616. # Returns: none
  2617. # Sideeffects: none
  2618. ##########
  2619.  
  2620.   # the save way
  2621.   set xfSelection ""
  2622.   catch "selection get" xfSelection
  2623.   if {"$xfSelection" == "selection doesn't exist or form \"STRING\" not defined"} {
  2624.     return ""
  2625.   } {
  2626.     return $xfSelection
  2627.   }
  2628. }
  2629. }
  2630.  
  2631.  
  2632. # Procedure: MenuPopupAdd
  2633. if {"[info procs MenuPopupAdd]" == ""} {
  2634. proc MenuPopupAdd { xfW xfButton xfMenu {xfModifier ""} {xfCanvasTag ""}} {
  2635. # xf ignore me 7
  2636. # the popup menu handling is from (I already gave up with popup handling :-):
  2637. #
  2638. # Copyright 1991,1992 by James Noble.
  2639. # Everyone is granted permission to copy, modify and redistribute.
  2640. # This notice must be preserved on all copies or derivates.
  2641. #
  2642. ##########
  2643. # Procedure: MenuPopupAdd
  2644. # Description: attach a popup menu to widget
  2645. # Arguments: xfW - the widget
  2646. #            xfButton - the button we use
  2647. #            xfMenu - the menu to attach
  2648. #            {xfModifier} - a optional modifier
  2649. #            {xfCanvasTag} - a canvas tagOrId
  2650. # Returns: none
  2651. # Sideeffects: none
  2652. ##########
  2653.   global tk_popupPriv
  2654.  
  2655.   set tk_popupPriv($xfMenu,focus) ""
  2656.   set tk_popupPriv($xfMenu,grab) ""
  2657.   if {"$xfModifier" != ""} {
  2658.     set press "$xfModifier-"
  2659.     set motion "$xfModifier-"
  2660.     set release "Any-"
  2661.   } {
  2662.     set press ""
  2663.     set motion ""
  2664.     set release ""
  2665.   }
  2666.  
  2667.   bind $xfMenu "<${motion}B${xfButton}-Motion>"  "MenuPopupMotion $xfMenu %W %X %Y"
  2668.   bind $xfMenu "<${release}ButtonRelease-${xfButton}>"  "MenuPopupRelease $xfMenu %W"
  2669.   if {"$xfCanvasTag" == ""} {
  2670.     bind $xfW "<${press}ButtonPress-${xfButton}>"  "MenuPopupPost $xfMenu %X %Y"
  2671.     bind $xfW "<${release}ButtonRelease-${xfButton}>"  "MenuPopupRelease $xfMenu %W"
  2672.   } {
  2673.     $xfW bind $xfCanvasTag "<${press}ButtonPress-${xfButton}>"  "MenuPopupPost $xfMenu %X %Y"
  2674.     $xfW bind $xfCanvasTag "<${release}ButtonRelease-${xfButton}>"  "MenuPopupRelease $xfMenu %W"
  2675.   }
  2676. }
  2677. }
  2678.  
  2679.  
  2680. # Procedure: MenuPopupMotion
  2681. if {"[info procs MenuPopupMotion]" == ""} {
  2682. proc MenuPopupMotion { xfMenu xfW xfX xfY} {
  2683. # xf ignore me 7
  2684. ##########
  2685. # Procedure: MenuPopupMotion
  2686. # Description: handle the popup menu motion
  2687. # Arguments: xfMenu - the topmost menu
  2688. #            xfW - the menu
  2689. #            xfX - the root x coordinate
  2690. #            xfY - the root x coordinate
  2691. # Returns: none
  2692. # Sideeffects: none
  2693. ##########
  2694.   global tk_popupPriv
  2695.  
  2696.   if {"[info commands $xfW]" != "" && [winfo ismapped $xfW] &&
  2697.       "[winfo class $xfW]" == "Menu" &&
  2698.       [info exists tk_popupPriv($xfMenu,focus)] &&
  2699.       "$tk_popupPriv($xfMenu,focus)" != "" &&
  2700.       [info exists tk_popupPriv($xfMenu,grab)] &&
  2701.       "$tk_popupPriv($xfMenu,grab)" != ""} {
  2702.     set xfPopMinX [winfo rootx $xfW]
  2703.     set xfPopMaxX [expr $xfPopMinX+[winfo width $xfW]]
  2704.     if {$xfX >= $xfPopMinX && $xfX <= $xfPopMaxX} {
  2705.       $xfW activate @[expr $xfY-[winfo rooty $xfW]]
  2706.       if {![catch "$xfW entryconfig @[expr $xfY-[winfo rooty $xfW]] -menu" result]} {
  2707.         if {"[lindex $result 4]" != ""} {
  2708.           foreach binding [bind $xfMenu] {
  2709.             bind [lindex $result 4] $binding [bind $xfMenu $binding]
  2710.           }
  2711.         }
  2712.       }
  2713.     } {
  2714.       $xfW activate none
  2715.     }
  2716.   }
  2717. }
  2718. }
  2719.  
  2720.  
  2721. # Procedure: MenuPopupPost
  2722. if {"[info procs MenuPopupPost]" == ""} {
  2723. proc MenuPopupPost { xfMenu xfX xfY} {
  2724. # xf ignore me 7
  2725. ##########
  2726. # Procedure: MenuPopupPost
  2727. # Description: post the popup menu
  2728. # Arguments: xfMenu - the menu
  2729. #            xfX - the root x coordinate
  2730. #            xfY - the root x coordinate
  2731. # Returns: none
  2732. # Sideeffects: none
  2733. ##########
  2734.   global tk_popupPriv
  2735.  
  2736.   if {"[info commands $xfMenu]" != ""} {
  2737.     if {![info exists tk_popupPriv($xfMenu,focus)]} {
  2738.       set tk_popupPriv($xfMenu,focus) [focus]
  2739.     } {
  2740.       if {"$tk_popupPriv($xfMenu,focus)" == ""} {
  2741.         set tk_popupPriv($xfMenu,focus) [focus]
  2742.       }
  2743.     }
  2744.     set tk_popupPriv($xfMenu,grab) $xfMenu
  2745.  
  2746.     catch "$xfMenu activate none"
  2747.     catch "$xfMenu post $xfX $xfY"
  2748.     catch "focus $xfMenu"
  2749.     catch "grab -global $xfMenu"
  2750.   }
  2751. }
  2752. }
  2753.  
  2754.  
  2755. # Procedure: MenuPopupRelease
  2756. if {"[info procs MenuPopupRelease]" == ""} {
  2757. proc MenuPopupRelease { xfMenu xfW} {
  2758. # xf ignore me 7
  2759. ##########
  2760. # Procedure: MenuPopupRelease
  2761. # Description: remove the popup menu
  2762. # Arguments: xfMenu - the topmost menu widget
  2763. #            xfW - the menu widget
  2764. # Returns: none
  2765. # Sideeffects: none
  2766. ##########
  2767.   global tk_popupPriv
  2768.   global tkVersion
  2769.  
  2770.   if {"[info commands $xfW]" != "" && [winfo ismapped $xfW] &&
  2771.       "[winfo class $xfW]" == "Menu" &&
  2772.       [info exists tk_popupPriv($xfMenu,focus)] &&
  2773.       "$tk_popupPriv($xfMenu,focus)" != "" &&
  2774.       [info exists tk_popupPriv($xfMenu,grab)] &&
  2775.       "$tk_popupPriv($xfMenu,grab)" != ""} {
  2776.     if {$tkVersion >= 3.0} {
  2777.       catch "grab release $tk_popupPriv($xfMenu,grab)"
  2778.     } {
  2779.       catch "grab none"
  2780.     }
  2781.     catch "focus $tk_popupPriv($xfMenu,focus)"
  2782.     set tk_popupPriv($xfMenu,focus) ""
  2783.     set tk_popupPriv($xfMenu,grab) ""
  2784.     if {"[$xfW index active]" != "none"} {
  2785.       $xfW invoke active; catch "$xfMenu unpost"
  2786.     }
  2787.   }
  2788.   catch "$xfMenu unpost"
  2789. }
  2790. }
  2791.  
  2792.  
  2793. # Procedure: NoFunction
  2794. if {"[info procs NoFunction]" == ""} {
  2795. proc NoFunction { args} {
  2796. # xf ignore me 7
  2797. ##########
  2798. # Procedure: NoFunction
  2799. # Description: do nothing (especially with scales and scrollbars)
  2800. # Arguments: args - a number of ignored parameters
  2801. # Returns: none
  2802. # Sideeffects: none
  2803. ##########
  2804. }
  2805. }
  2806.  
  2807.  
  2808. # Procedure: SN
  2809. if {"[info procs SN]" == ""} {
  2810. proc SN { {xfName ""}} {
  2811. # xf ignore me 7
  2812. ##########
  2813. # Procedure: SN
  2814. # Description: map a symbolic name to the widget path
  2815. # Arguments: xfName
  2816. # Returns: the symbolic name
  2817. # Sideeffects: none
  2818. ##########
  2819.  
  2820.   SymbolicName $xfName
  2821. }
  2822. }
  2823.  
  2824.  
  2825. # Procedure: SymbolicName
  2826. if {"[info procs SymbolicName]" == ""} {
  2827. proc SymbolicName { {xfName ""}} {
  2828. # xf ignore me 7
  2829. ##########
  2830. # Procedure: SymbolicName
  2831. # Description: map a symbolic name to the widget path
  2832. # Arguments: xfName
  2833. # Returns: the symbolic name
  2834. # Sideeffects: none
  2835. ##########
  2836.  
  2837.   global symbolicName
  2838.  
  2839.   if {"$xfName" != ""} {
  2840.     set xfArrayName ""
  2841.     append xfArrayName symbolicName ( $xfName )
  2842.     if {![catch "set \"$xfArrayName\"" xfValue]} {
  2843.       return $xfValue
  2844.     } {
  2845.       if {"[info commands XFProcError]" != ""} {
  2846.         XFProcError "Unknown symbolic name:\n$xfName"
  2847.       } {
  2848.         puts stderr "XF error: unknown symbolic name:\n$xfName"
  2849.       }
  2850.     }
  2851.   }
  2852.   return ""
  2853. }
  2854. }
  2855.  
  2856.  
  2857. # Procedure: Unalias
  2858. if {"[info procs Unalias]" == ""} {
  2859. proc Unalias { aliasName} {
  2860. # xf ignore me 7
  2861. ##########
  2862. # Procedure: Unalias
  2863. # Description: remove an alias for a procedure
  2864. # Arguments: aliasName - the alias name to remove
  2865. # Returns: none
  2866. # Sideeffects: internalAliasList is updated, and the alias
  2867. #              proc is removed
  2868. ##########
  2869.   global internalAliasList
  2870.  
  2871.   set xfIndex [lsearch $internalAliasList "$aliasName *"]
  2872.   if {$xfIndex != -1} {
  2873.     rename $aliasName ""
  2874.     set internalAliasList [lreplace $internalAliasList $xfIndex $xfIndex]
  2875.   }
  2876. }
  2877. }
  2878.  
  2879.  
  2880.  
  2881. # application parsing procedure
  2882. proc XFLocalParseAppDefs {xfAppDefFile} {
  2883.   global xfAppDefaults
  2884.  
  2885.   # basically from: Michael Moore
  2886.   if {[file exists $xfAppDefFile] &&
  2887.       [file readable $xfAppDefFile] &&
  2888.       "[file type $xfAppDefFile]" == "link"} {
  2889.     catch "file type $xfAppDefFile" xfType
  2890.     while {"$xfType" == "link"} {
  2891.       if {[catch "file readlink $xfAppDefFile" xfAppDefFile]} {
  2892.         return
  2893.       }
  2894.       catch "file type $xfAppDefFile" xfType
  2895.     }
  2896.   }
  2897.   if {!("$xfAppDefFile" != "" &&
  2898.         [file exists $xfAppDefFile] &&
  2899.         [file readable $xfAppDefFile] &&
  2900.         "[file type $xfAppDefFile]" == "file")} {
  2901.     return
  2902.   }
  2903.   if {![catch "open $xfAppDefFile r" xfResult]} {
  2904.     set xfAppFileContents [read $xfResult]
  2905.     close $xfResult
  2906.     foreach line [split $xfAppFileContents "\n"] {
  2907.       # backup indicates how far to backup.  It applies to the
  2908.       # situation where a resource name ends in . and when it
  2909.       # ends in *.  In the second case you want to keep the *
  2910.       # in the widget name for pattern matching, but you want
  2911.       # to get rid of the . if it is the end of the name. 
  2912.       set backup -2  
  2913.       set line [string trim $line]
  2914.       if {[string index $line 0] == "#" || "$line" == ""} {
  2915.         # skip comments and empty lines
  2916.         continue
  2917.       }
  2918.       set list [split $line ":"]
  2919.       set resource [string trim [lindex $list 0]]
  2920.       set i [string last "." $resource]
  2921.       set j [string last "*" $resource]
  2922.       if {$j > $i} { 
  2923.         set i $j
  2924.         set backup -1
  2925.       }
  2926.       incr i
  2927.       set name [string range $resource $i end]
  2928.       incr i $backup
  2929.       set widname [string range $resource 0 $i]
  2930.       set value [string trim [lindex $list 1]]
  2931.       if {"$widname" != "" && "$widname" != "*"} {
  2932.         # insert the widget and resourcename to the application
  2933.         # defaults list.
  2934.         if {![info exists xfAppDefaults]} {
  2935.           set xfAppDefaults ""
  2936.         }
  2937.         lappend xfAppDefaults [list $widname [string tolower $name] $value]
  2938.       }
  2939.     }
  2940.   }
  2941. }
  2942.  
  2943. # application loading procedure
  2944. proc XFLocalLoadAppDefs {{xfClasses ""} {xfPriority "startupFile"} {xfAppDefFile ""}} {
  2945.   global env
  2946.  
  2947.   if {"$xfAppDefFile" == ""} {
  2948.     set xfFileList ""
  2949.     if {[info exists env(XUSERFILESEARCHPATH)]} {
  2950.       append xfFileList [split $env(XUSERFILESEARCHPATH) :]
  2951.     }
  2952.     if {[info exists env(XAPPLRESDIR)]} {
  2953.       append xfFileList [split $env(XAPPLRESDIR) :]
  2954.     }
  2955.     if {[info exists env(XFILESEARCHPATH)]} {
  2956.       append xfFileList [split $env(XFILESEARCHPATH) :]
  2957.     }
  2958.     append xfFileList " /usr/lib/X11/app-defaults"
  2959.     append xfFileList " /usr/X11/lib/X11/app-defaults"
  2960.  
  2961.     foreach xfCounter1 $xfClasses {
  2962.       foreach xfCounter2 $xfFileList {
  2963.         set xfPathName $xfCounter2
  2964.         if {[regsub -all "%N" "$xfPathName" "$xfCounter1" xfResult]} {
  2965.           set xfPathName $xfResult
  2966.         }
  2967.         if {[regsub -all "%T" "$xfPathName" "app-defaults" xfResult]} {
  2968.           set xfPathName $xfResult
  2969.         }
  2970.         if {[regsub -all "%S" "$xfPathName" "" xfResult]} {
  2971.           set xfPathName $xfResult
  2972.         }
  2973.         if {[regsub -all "%C" "$xfPathName" "" xfResult]} {
  2974.           set xfPathName $xfResult
  2975.         }
  2976.         if {[file exists $xfPathName] &&
  2977.             [file readable $xfPathName] &&
  2978.             ("[file type $xfPathName]" == "file" ||
  2979.              "[file type $xfPathName]" == "link")} {
  2980.           catch "option readfile $xfPathName $xfPriority"
  2981.           if {"[info commands XFParseAppDefs]" != ""} {
  2982.             XFParseAppDefs $xfPathName
  2983.           } {
  2984.             if {"[info commands XFLocalParseAppDefs]" != ""} {
  2985.               XFLocalParseAppDefs $xfPathName
  2986.             }
  2987.           }
  2988.         } {
  2989.           if {[file exists $xfCounter2/$xfCounter1] &&
  2990.               [file readable $xfCounter2/$xfCounter1] &&
  2991.               ("[file type $xfCounter2/$xfCounter1]" == "file" ||
  2992.                "[file type $xfCounter2/$xfCounter1]" == "link")} {
  2993.             catch "option readfile $xfCounter2/$xfCounter1 $xfPriority"
  2994.             if {"[info commands XFParseAppDefs]" != ""} {
  2995.               XFParseAppDefs $xfCounter2/$xfCounter1
  2996.             } {
  2997.               if {"[info commands XFLocalParseAppDefs]" != ""} {
  2998.                 XFLocalParseAppDefs $xfCounter2/$xfCounter1
  2999.               }
  3000.             }
  3001.           }
  3002.         }
  3003.       }
  3004.     }
  3005.   } {
  3006.     # load a specific application defaults file
  3007.     if {[file exists $xfAppDefFile] &&
  3008.         [file readable $xfAppDefFile] &&
  3009.         ("[file type $xfAppDefFile]" == "file" ||
  3010.          "[file type $xfAppDefFile]" == "link")} {
  3011.       catch "option readfile $xfAppDefFile $xfPriority"
  3012.       if {"[info commands XFParseAppDefs]" != ""} {
  3013.         XFParseAppDefs $xfAppDefFile
  3014.       } {
  3015.         if {"[info commands XFLocalParseAppDefs]" != ""} {
  3016.           XFLocalParseAppDefs $xfAppDefFile
  3017.         }
  3018.       }
  3019.     }
  3020.   }
  3021. }
  3022.  
  3023. # application setting procedure
  3024. proc XFLocalSetAppDefs {{xfWidgetPath "."}} {
  3025.   global xfAppDefaults
  3026.  
  3027.   if {![info exists xfAppDefaults]} {
  3028.     return
  3029.   }
  3030.   foreach xfCounter $xfAppDefaults {
  3031.     if {"$xfCounter" == ""} {
  3032.       break
  3033.     }
  3034.     set widname [lindex $xfCounter 0]
  3035.     if {[string match $widname ${xfWidgetPath}] ||
  3036.         [string match "${xfWidgetPath}*" $widname]} {
  3037.       set name [string tolower [lindex $xfCounter 1]]
  3038.       set value [lindex $xfCounter 2]
  3039.       # Now lets see how many tcl commands match the name
  3040.       # pattern specified.
  3041.       set widlist [info command $widname]
  3042.       if {"$widlist" != ""} {
  3043.         foreach widget $widlist {
  3044.           # make sure this command is a widget.
  3045.           if {![catch "winfo id $widget"] &&
  3046.               [string match "${xfWidgetPath}*" $widget]} {
  3047.             catch "$widget configure -$name $value" 
  3048.           }
  3049.         }
  3050.       }
  3051.     }
  3052.   }
  3053. }
  3054.  
  3055.  
  3056. # prepare auto loading
  3057. global auto_path
  3058. global tk_library
  3059. global xfLoadPath
  3060. foreach xfElement [eval list [split $xfLoadPath :] $auto_path] {
  3061.   if {[file exists $xfElement/tclIndex]} {
  3062.     lappend auto_path $xfElement
  3063.   }
  3064. }
  3065. catch "unset auto_index"
  3066.  
  3067. catch "unset auto_oldpath"
  3068.  
  3069. catch "unset auto_execs"
  3070.  
  3071.  
  3072. # initialize global variables
  3073. proc InitGlobals {} {
  3074.   global {argfilename}
  3075.   set {argfilename} {/etc/tbackup/new.arg}
  3076.   global {choosemethod}
  3077.   set {choosemethod} {set}
  3078.   global {fileselect_cancel}
  3079.   set {fileselect_cancel} {.fileSelectWindow.bframe.cancel}
  3080.   global {fileselect_dirlabel}
  3081.   set {fileselect_dirlabel} {.fileSelectWindow.file.dirlabel}
  3082.   global {fileselect_entry}
  3083.   set {fileselect_entry} {.fileSelectWindow.file.eframe.entry}
  3084.   global {fileselect_list}
  3085.   set {fileselect_list} {.fileSelectWindow.file.sframe.list}
  3086.   global {fileselect_ok}
  3087.   set {fileselect_ok} {.fileSelectWindow.bframe.okframe.ok}
  3088.   global {format}
  3089.   set {format} {0}
  3090.   global {formatalways}
  3091.   set {formatalways} {n}
  3092.   global {fsBox}
  3093.   set {fsBox(activeBackground)} {#bfbfbf}
  3094.   set {fsBox(activeForeground)} {}
  3095.   set {fsBox(all)} {1}
  3096.   set {fsBox(background)} {#bfbfbf}
  3097.   set {fsBox(button)} {0}
  3098.   set {fsBox(extensions)} {0}
  3099.   set {fsBox(font)} {}
  3100.   set {fsBox(foreground)} {}
  3101.   set {fsBox(internalPath)} {/etc/tbackup}
  3102.   set {fsBox(name)} {}
  3103.   set {fsBox(path)} {}
  3104.   set {fsBox(pattern)} {*.arg}
  3105.   set {fsBox(scrollActiveForeground)} {#bfbfbf}
  3106.   set {fsBox(scrollBackground)} {#bfbfbf}
  3107.   set {fsBox(scrollForeground)} {#bfbfbf}
  3108.   set {fsBox(scrollSide)} {right}
  3109.   set {fsBox(showPixmap)} {0}
  3110.   global {inputBox}
  3111.   set {inputBox(activeBackground)} {}
  3112.   set {inputBox(activeForeground)} {}
  3113.   set {inputBox(anchor)} {n}
  3114.   set {inputBox(background)} {}
  3115.   set {inputBox(erase)} {1}
  3116.   set {inputBox(font)} {}
  3117.   set {inputBox(foreground)} {}
  3118.   set {inputBox(justify)} {center}
  3119.   set {inputBox(scrollActiveForeground)} {}
  3120.   set {inputBox(scrollBackground)} {}
  3121.   set {inputBox(scrollForeground)} {}
  3122.   set {inputBox(scrollSide)} {left}
  3123.   set {inputBox(toplevelName)} {.inputBox}
  3124.   global {level}
  3125.   set {level} {f}
  3126.   global {mdens}
  3127.   set {mdens} {d}
  3128.   global {mnr}
  3129.   set {mnr} {0}
  3130.   global {packmethod}
  3131.   set {packmethod} {afio}
  3132.   global {readBox}
  3133.   set {readBox(activeBackground)} {}
  3134.   set {readBox(activeForeground)} {}
  3135.   set {readBox(background)} {}
  3136.   set {readBox(font)} {}
  3137.   set {readBox(foreground)} {}
  3138.   set {readBox(scrollActiveForeground)} {}
  3139.   set {readBox(scrollBackground)} {}
  3140.   set {readBox(scrollForeground)} {}
  3141.   set {readBox(scrollSide)} {left}
  3142.   global {result}
  3143.   set {result} {7}
  3144.   global {select}
  3145.   set {select} {text doesn't contain any characters tagged with "sel"}
  3146.   global {selection}
  3147.   set {selection} {{ system -- root filesystem, without /root dir.}}
  3148.   global {setfiled}
  3149.   set {setfiled} {/tmp/.tktbackup.set}
  3150.   global {setnameselection}
  3151.   set {setnameselection} {{ system -- root filesystem, without /root dir. }}
  3152.   global {temp}
  3153.   set {temp} {}
  3154.   global {textBox}
  3155.   set {textBox(activeBackground)} {#bfbfbf}
  3156.   set {textBox(activeForeground)} {black}
  3157.   set {textBox(background)} {#bfbfbf}
  3158.   set {textBox(button)} {0}
  3159.   set {textBox(contents)} {tktbackup by jonM<><
  3160. jonboy@neuromancer.ucr.edu
  3161. http://indyunix.iupui.edu/~jmmadiso/tktbackup.html}
  3162.   set {textBox(font)} {}
  3163.   set {textBox(foreground)} {}
  3164.   set {textBox(scrollActiveForeground)} {#bfbfbf}
  3165.   set {textBox(scrollBackground)} {#bfbfbf}
  3166.   set {textBox(scrollForeground)} {#bfbfbf}
  3167.   set {textBox(scrollSide)} {right}
  3168.   set {textBox(state)} {disabled}
  3169.   set {textBox(toplevelName)} {.textBox}
  3170.   global {verify_after_write}
  3171.   set {verify_after_write} {0}
  3172.   global {verify_format}
  3173.   set {verify_format} {n}
  3174.   global {verifyformat}
  3175.   set {verifyformat} {n}
  3176.   global {verifywrite}
  3177.   set {verifywrite} {n}
  3178.   global {writemethod}
  3179.   set {writemethod} {floppy}
  3180.   global {xh}
  3181.   set {xh} {}
  3182.  
  3183.   # please don't modify the following
  3184.   # variables. They are needed by xf.
  3185.   global {autoLoadList}
  3186.   set {autoLoadList(tktbackup.xf)} {0}
  3187.   global {internalAliasList}
  3188.   set {internalAliasList} {}
  3189.   global {moduleList}
  3190.   set {moduleList(tktbackup.xf)} {}
  3191.   global {preloadList}
  3192.   set {preloadList(xfInternal)} {}
  3193.   global {symbolicName}
  3194.   set {symbolicName(About)} {.topmenubar.menubutton2.m}
  3195.   set {symbolicName(About Box)} {.top0}
  3196.   set {symbolicName(Helpmenubutton)} {.topmenubar.menubutton2}
  3197.   set {symbolicName(OKbutton)} {.top0.button1}
  3198.   set {symbolicName(TkTbackupRootroot)} {.}
  3199.   set {symbolicName(UseBackupSetList)} {.chooseMethodFrame.frame.listbox1}
  3200.   set {symbolicName(aboutmenubutton)} {.topmenubar.menubutton1.m}
  3201.   set {symbolicName(backItUp)} {.topmenubar.actionmenu.m}
  3202.   set {symbolicName(choosesetbox)} {.top1.frame}
  3203.   set {symbolicName(horizontalscrollforlistbox)} {.scrollbar1}
  3204.   set {symbolicName(nulldescript)} {.writeMethodFrame.message2}
  3205.   set {symbolicName(one)} {.chooseMethodFrame.chooseMethodButtonsFrame.one}
  3206.   set {symbolicName(pack_descriptions)} {.packMethodsFrame.text0}
  3207.   set {symbolicName(root)} {.}
  3208.   set {symbolicName(setchooserlistbox)} {.chooseMethodFrame.frame1.listbox0}
  3209.   set {symbolicName(setfilelistbox)} {.chooseMethodFrame.frame}
  3210.   set {symbolicName(setnamelist)} {.chooseMethodFrame.frame1}
  3211.   global {xfWmSetPosition}
  3212.   set {xfWmSetPosition} {.top0 .aboutBox .filedescriptionwindow}
  3213.   global {xfWmSetSize}
  3214.   set {xfWmSetSize} {. .top0 .top1 .aboutBox .filedescriptionwindow}
  3215.   global {xfAppDefToplevels}
  3216.   set {xfAppDefToplevels} {}
  3217. }
  3218.  
  3219. # initialize global variables
  3220. InitGlobals
  3221.  
  3222. # display/remove toplevel windows.
  3223. ShowWindow.
  3224.  
  3225. global xfShowWindow.aboutBox
  3226. set xfShowWindow.aboutBox 0
  3227.  
  3228. global xfShowWindow.filedescriptionwindow
  3229. set xfShowWindow.filedescriptionwindow 0
  3230.  
  3231. # load default bindings.
  3232. if {[info exists env(XF_BIND_FILE)] &&
  3233.     "[info procs XFShowHelp]" == ""} {
  3234.   source $env(XF_BIND_FILE)
  3235. }
  3236.  
  3237. # parse and apply application defaults.
  3238. XFLocalLoadAppDefs Tktbackup
  3239. XFLocalSetAppDefs
  3240.  
  3241. # eof
  3242. #
  3243.  
  3244.